home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / ccr.zip / CCR-ROOM.T < prev    next >
Text File  |  1993-01-23  |  119KB  |  4,592 lines
  1. /*
  2.  * Colossal Cave Revisited
  3.  *
  4.  * A remake of Willie Crowther and Don Woods' classic Adventure.
  5.  * Converted from Donald Ekman's PC port of the original FORTRAN source.
  6.  * TADS version by David M. Baggett for ADVENTIONS.
  7.  *
  8.  * Please document all changes in the history so we know who did what.
  9.  *
  10.  * This source code is copylefted under the terms of the GNU Public
  11.  * License.  Essentially, this means that you are free to do whatever
  12.  * you wish with this source code, provided you do not charge any
  13.  * money for it or for any derivative works.
  14.  *
  15.  * ADVENTIONS distributes this game, but you are free to do what you will
  16.  * with it, provided you adhere to the terms in the GNU Public License.
  17.  * Send correspondence regarding this game or original works distributed
  18.  * by ADVENTIONS to 
  19.  *
  20.  *    ADVENTIONS
  21.  *    PO Box 851
  22.  *    Columbia, MD 21044
  23.  *
  24.  * If you would like a catalog of releases, please enclose a SASE.  Thanks!
  25.  *
  26.  * Contributors
  27.  *
  28.  *    dmb    In real life:    David M. Baggett
  29.  *        Internet:    <dmb@ai.mit.edu>
  30.  *        Compu$erve:    76440,2671 (ADVENTIONS account)
  31.  *        GEnie:        ADVENTIONS
  32.  *
  33.  * Modification History
  34.  *
  35.  * 1-Jan-93    dmb    rec.arts.int-fiction BETA release (source only)
  36.  *                      For beta testing only -- not for general
  37.  *            distribution.
  38.  *
  39.  */
  40.  
  41. /*
  42.  * This file defines all the locations.
  43.  */
  44.  
  45. /*
  46.  * First we need to define a new class for our rooms.
  47.  * In the original fortran version of the game, you could move around
  48.  * by naming adjacent places.  Since we want to retain this capability,
  49.  * we need to augment the existing set of room movement methods.
  50.  *
  51.  * We also make rooms dark by default.
  52.  *
  53.  * We also need a few things to help our NPC's move about the cave
  54.  * without getting stuck or wandering where they're not supposed to.
  55.  *
  56.  * IMPORTANT NOTE: If you add exit properties (i.e., things like
  57.  * out, east, down, etc.), be sure to update the exitlist in ccr-npc.t
  58.  * or NPC's won't know to look at them, and might get stuck!
  59.  */
  60. class CCR_room: darkroom
  61.     //
  62.     // By default, exits don't go anywhere.
  63.     //
  64.     // The directional ones call noexit, the standard TADS
  65.     // "You can't go that way" method.
  66.     //
  67.     // The magic words print "Nothing happens."
  68.     //
  69.     // For the other words, the game tells the player it
  70.     // doesn't know how to apply the word in the given
  71.     // location.
  72.     //
  73.     jump = { "I don't see how that will help here."; return nil; }
  74.  
  75.     //
  76.     // Directions
  77.     //
  78.     upstream = { return self.noexit; }
  79.     downstream = { return self.noexit; }
  80.     forwards = { return self.noexit; }
  81.     outdoors = { return self.noexit; }
  82.     left = { return self.noexit; }
  83.     right = { return self.noexit; }
  84.     cross = { return self.noexit; }
  85.     over = { return self.noexit; }
  86.     across = { return self.noexit; }
  87.  
  88.     //
  89.     // Magic words
  90.     //
  91.     // Note that it's important to have these implemented as travel
  92.     // verbs because once the cave closes, these stop working just
  93.     // like the usual travel verbs.
  94.     //
  95.     // Non-travel magic words are defined in ccr-verbs.t
  96.     //
  97.     xyzzy = { return self.nothinghappens; }
  98.     y2 = { return self.nothinghappens; }
  99.     plugh = { return self.nothinghappens; }
  100.     plover = { return self.nothinghappens; }
  101.  
  102.     //
  103.     // Feature names
  104.     //
  105.     // These allow limited teleporting to prominent locations.
  106.     //
  107.     road = { return self.doesnotapplyhere; }
  108.     forest = { return self.doesnotapplyhere; }
  109.     valley = { return self.doesnotapplyhere; }
  110.     stairs = { return self.doesnotapplyhere; }
  111.     building = { return self.doesnotapplyhere; }
  112.     gully = { return self.doesnotapplyhere; }
  113.     stream = { return self.doesnotapplyhere; }
  114.     rock = { return self.doesnotapplyhere; }
  115.     bed = { return self.doesnotapplyhere; }
  116.     crawl = { return self.doesnotapplyhere; }
  117.     cobble = { return self.doesnotapplyhere; }
  118.     tosurface = { return self.doesnotapplyhere; }
  119.     dark = { return self.doesnotapplyhere; }
  120.     passage = { return self.doesnotapplyhere; }
  121.     low = { return self.doesnotapplyhere; }
  122.     canyon = { return self.doesnotapplyhere; }
  123.     awkward = { return self.doesnotapplyhere; }
  124.     giant = { return self.doesnotapplyhere; }
  125.     view = { return self.doesnotapplyhere; }
  126.     pit = { return self.doesnotapplyhere; }
  127.     crack = { return self.doesnotapplyhere; }
  128.     steps = { return self.doesnotapplyhere; }
  129.     dome = { return self.doesnotapplyhere; }
  130.     hall = { return self.doesnotapplyhere; }
  131.     barren = { return self.doesnotapplyhere; }
  132.     debris = { return self.doesnotapplyhere; }
  133.     hole = { return self.doesnotapplyhere; }
  134.     wall = { return self.doesnotapplyhere; }
  135.     broken = { return self.doesnotapplyhere; }
  136.     floor = { return self.doesnotapplyhere; }
  137.     toroom = { return self.doesnotapplyhere; }
  138.     slit = { return self.doesnotapplyhere; }
  139.     slab = { return self.doesnotapplyhere; }
  140.     depression = { return self.doesnotapplyhere; }
  141.     entrance = { return self.doesnotapplyhere; }
  142.     secret = { return self.doesnotapplyhere; }
  143.     cave = { return self.doesnotapplyhere; }
  144.     bedquilt = { return self.doesnotapplyhere; }
  145.     oriental = { return self.doesnotapplyhere; }
  146.     cavern = { return self.doesnotapplyhere; }
  147.     shell = { return self.doesnotapplyhere; }
  148.     reservoir = { return self.doesnotapplyhere; }
  149.     main = { return self.doesnotapplyhere; }
  150.     office = { return self.doesnotapplyhere; }
  151.     fork = { return self.doesnotapplyhere; }
  152.  
  153.     nothinghappens = {
  154.         "Nothing happens.";
  155.         return nil;
  156.     }
  157.     doesnotapplyhere = {
  158.         "I don't know how to apply that word here.";
  159.         return nil;
  160.     }
  161.  
  162.     //
  163.     // Exits for NPC's.  Since NPC's won't take regular exits
  164.     // that are methods (instead of simple object names), we
  165.     // have to add "hints" in some rooms to allow complete access
  166.     // to all rooms.  By default, these are all nil.  (Note that
  167.     // it is important for them to be nil ojects, and not methods
  168.     // that return nil.  If they are methods, NPC's will try them.)
  169.     //
  170.     NPCexit1 = nil
  171.     NPCexit2 = nil
  172.     NPCexit3 = nil
  173.     NPCexit4 = nil
  174.     NPCexit5 = nil
  175.     NPCexit6 = nil
  176.     NPCexit7 = nil
  177.     NPCexit8 = nil
  178.  
  179.     //
  180.     // Each room has a list of exit properties that can be considered by
  181.     // NPC's.  The lists is determined at preinit time by looking
  182.     // at all the exit methods and discarding those that are methods.
  183.     // (The NPCexits are always considered, whether they are methods
  184.     // or not, since they're guranteed not to print anything or
  185.     // change game state when they're run.)
  186.     //
  187.     // Note: the list doesn't contain locations; it contains properties;
  188.     // i.e., it contains [ &west &up ... ], not [ At_Y2 ... ].
  189.     //
  190.     NPCexits = []
  191. ;
  192.  
  193. /*
  194.  * A class for the rooms in the "alike" maze.
  195.  */
  196. class CCR_alike_maze_room: CCR_room
  197.     sdesc = "Maze of Twisty Little Passages, All Alike"
  198.     ldesc = {
  199.         I(); "You are in a maze of twisty little passages, 
  200.         all alike.";
  201.     }
  202. ;
  203.  
  204. /*
  205.  * A class for rooms that are forbidden to non-player characters.
  206.  * (This means dwarves and pirate, not bear.)
  207.  *
  208.  * All pits inherit this class because the original source claims
  209.  * that dwarves won't follow the player into a pit, even though
  210.  * they do.  It makes more sense for them to give up the chase
  211.  * when the player scrambles down into a pit, and for that matter
  212.  * it may sound a bit funny for a combat to occur in a little pit,
  213.   * so I've add NoNPC too all the pit rooms.
  214.  */
  215. class NoNPC: CCR_room
  216.     noNPCs = true
  217. ;
  218.  
  219. /*
  220.  * A class for the dead ends.
  221.  */
  222. class CCR_dead_end_room: CCR_room
  223.     sdesc = "At a Dead End"
  224.     ldesc = {
  225.         I(); "You have reached a dead end.";
  226.     }
  227. ;
  228.  
  229. /*
  230.  * A class for areas that are naturally lit.
  231.  */
  232. class lightroom: CCR_room
  233.     islit = true
  234. ;
  235.  
  236. /*
  237.  * A class for rooms that are outside.
  238.  * These rooms are off limits once the cave is closed.
  239.  */
  240. class Outside: CCR_room
  241.     isoutside = true
  242. ;
  243.  
  244. /*
  245.  * A class for rooms that aren't far enough in to earn the player
  246.  * the bonus for getting "well in."
  247.  *
  248.  * See the definition of Me in ccr-std.t for info on how this is used.
  249.  */
  250. class NotFarIn: CCR_room, NoNPC
  251.     notfarin = true
  252. ;
  253.  
  254. class CCR_decoration: decoration;
  255.  
  256. /*
  257.  * This class lets us easily define a decoration that's in multiple
  258.  * places at once.  You just list the locations it appears in in
  259.  * a list called loclist.
  260.  *
  261.  * This is particularly nice for things like water, which can be
  262.  * manipulated -- we only have one object name to consider (Stream)
  263.  * for all the water in the game that can be taken.  (See ioPutIn
  264.  * for the bottle in ccr-item.t)
  265.  */
  266. class floatingdecoration: CCR_decoration
  267.     locationOK = true    // OK for location to be method
  268.     location = {
  269.         if (find(self.loclist, Me.location))
  270.             return Me.location;
  271.         else
  272.             return nil;
  273.     }
  274. ;
  275.  
  276. /*
  277.  * The locations
  278.  */
  279. At_End_Of_Road: CCR_room, lightroom, NotFarIn, Outside
  280.     sdesc = "At End Of Road"
  281.     ldesc = {
  282.         I(); "You are standing at the end of a road before a 
  283.         small brick building. Around you is a forest.  A 
  284.         small stream flows out of the building and down a 
  285.         gully.";
  286.     }
  287.     road = At_Hill_In_Road
  288.     west = At_Hill_In_Road
  289.     up = At_Hill_In_Road
  290.     building = Inside_Building
  291.     in = Inside_Building
  292.     east = Inside_Building
  293.     downstream = In_A_Valley
  294.     gully = In_A_Valley
  295.     stream = In_A_Valley
  296.     south = In_A_Valley
  297.     down = In_A_Valley
  298.     forest = In_Forest_1
  299.     north = In_Forest_1
  300.     depression = Outside_Grate
  301.  
  302.     // This was in the original fortran code, but conflicts
  303.     // with the fact that the building is to the east:
  304.     // east = In_Forest
  305. ;
  306. Building: floatingdecoration
  307.     sdesc = "building"
  308.     ldesc = {
  309.         if (Me.isIn(Inside_Building))
  310.             "You're in it.";
  311.         else
  312.             "It's a small brick building.  It seems to be 
  313.             a well house.";
  314.     }
  315.     noun = 'building' 'house' 'wellhouse'
  316.     adjective = 'well' 'small' 'brick'
  317.     loclist = [ At_End_Of_Road  At_Hill_In_Road  Inside_Building ]
  318.  
  319.     verDoEnter(actor) = {}
  320.     doEnter(actor) = {
  321.         actor.travelTo(At_End_Of_Road.in);
  322.     }
  323. ;
  324. Road: floatingdecoration
  325.     sdesc = "road"
  326.     noun = 'road' 'street' 'path'
  327.     adjective = 'dirt'
  328.     loclist = [ At_End_Of_Road  At_Hill_In_Road  In_Forest_2 ]
  329. ;
  330. Forest: floatingdecoration
  331.     sdesc = "forest"
  332.     adesc = "forest"
  333.     ldesc = {
  334.         "The trees of the forest are large hardwood oak and 
  335.         maple, with an occasional grove of pine or spruce.  
  336.         There is quite a bit of undergrowth, largely birch 
  337.         and ash saplings plus nondescript bushes of various 
  338.         sorts.  This time of year visibility is quite 
  339.         restricted by all the leaves, but travel is quite 
  340.         easy if you detour around the spruce and berry 
  341.         bushes.";
  342.     }
  343.  
  344.     noun = 'forest' 'tree' 'trees' 'oak' 'maple' 'grove' 'pine'
  345.         'spruce' 'birch' 'ash' 'saplings' 'bushes' 'leaves'
  346.         'berry' 'berries'
  347.     adjective = 'surrounding' 'open' 'hardwood' 'oak' 'maple' 'pine'
  348.         'spruce' 'birch' 'ash' 'berry'
  349.     loclist = [
  350.         At_End_Of_Road  At_Hill_In_Road  In_A_Valley
  351.         In_Forest_1  In_Forest_2
  352.     ]
  353. ;
  354. Stream: floatingdecoration
  355.     sdesc = "stream"
  356.     ldesc = {
  357.         if (Me.isIn(Inside_Building))
  358.             "The stream flows out through a pair of 1 
  359.             foot diameter sewer pipes.";
  360.         else
  361.             pass ldesc;
  362.     }
  363.     noun = 'stream' 'water' 'brook' 'river' 'lake'
  364.     adjective = 'small' 'tumbling' 'splashing' 'babbling' 'rushing'
  365.         'reservoir'
  366.     loclist = [
  367.         At_End_Of_Road  In_A_Valley  At_Slit_In_Streambed
  368.         In_Pit  In_Cavern_With_Waterfall  At_Reservoir
  369.     ]
  370.  
  371.     verDoDrink(actor) = {}
  372.     doDrink(actor) = {
  373.         "You have taken a drink from the stream.  The water 
  374.         tastes strongly of minerals, but is not unpleasant.  
  375.         It is extremely cold.";
  376.     }
  377.  
  378.     verDoTake(actor) = {
  379.         if (not bottle.isIn(Me))
  380.             "You have nothing in which to carry the water.";
  381.     }
  382.     doTake(actor) = {
  383.         bottle.ioPutIn(actor, self);
  384.     }
  385.     verDoPutIn(actor, io) = {}
  386.     doPutIn(actor, io) = {
  387.         if (io <> bottle)
  388.             "You have nothing in which to carry the water.";
  389.         else
  390.             bottle.ioPutIn(actor, self);
  391.     }
  392. ;
  393. Gully: floatingdecoration
  394.     sdesc = "gully"
  395.     noun = 'gully'
  396.     loclist = [ At_End_Of_Road  At_Slit_In_Streambed  Outside_Grate ]
  397. ;
  398.  
  399. At_Hill_In_Road: CCR_room, lightroom, NotFarIn, Outside
  400.     sdesc = "At Hill In Road"
  401.     ldesc = {
  402.         I(); "You have walked up a hill, still in the forest. 
  403.         The road slopes back down the other side of the 
  404.         hill.  There is a building in the distance.";
  405.     }
  406.     road = At_End_Of_Road
  407.     building = At_End_Of_Road
  408.     forwards = At_End_Of_Road
  409.     east = At_End_Of_Road
  410.     north = At_End_Of_Road
  411.     down = At_End_Of_Road
  412.     forest = In_Forest_1
  413.     south = In_Forest_1
  414.  
  415.     // Another bug in the original code:
  416.     // north = In_Forest
  417. ;
  418. Hill: CCR_decoration
  419.     sdesc = "hill"
  420.     ldesc = "It's just a typical hill."
  421.     noun = 'hill' 'bump' 'incline'
  422.     location = At_Hill_In_Road
  423. ;
  424. OtherSideOfHill: CCR_decoration
  425.     sdesc = "other side of hill"
  426.     thedesc = "the other side of the hill"
  427.     adesc = { self.thedesc; }
  428.     ldesc = "Why not explore it yourself?"
  429.     noun = 'side'
  430.     adjective = 'other'
  431.     location = At_Hill_In_Road
  432. ;
  433.  
  434. Inside_Building: CCR_room, lightroom, NotFarIn, Outside
  435.     sdesc = "Inside Building"
  436.     ldesc = {
  437.         I(); "You are inside a building, a well house for a 
  438.         large spring.";
  439.     }
  440.     out = At_End_Of_Road
  441.     outdoors = At_End_Of_Road
  442.     west = At_End_Of_Road
  443.     xyzzy = In_Debris_Room
  444.     plugh = At_Y2
  445.     downstream = { return self.stream; }
  446.     stream = {
  447.         "The stream flows out through a pair of 1 foot 
  448.         diameter sewer pipes. It would be advisable to use 
  449.         the exit.";
  450.  
  451.         return nil;
  452.     }
  453. ;
  454. Spring: CCR_decoration
  455.     sdesc = "spring"
  456.     location = Inside_Building
  457.     noun = 'spring'
  458.     adjective = 'large'
  459. ;
  460. SewerPipes: CCR_decoration
  461.     sdesc = "pair of 1 foot diameter sewer pipes"
  462.     location = Inside_Building
  463.     noun = 'pipes' 'pipe'
  464.     adjective = 'one' 'foot' '1-foot' 'diameter' 'sewer'
  465. ;
  466.  
  467. In_A_Valley: CCR_room, lightroom, NotFarIn, Outside
  468.     sdesc = "In A Valley"
  469.     ldesc = {
  470.         I(); "You are in a valley in the forest beside a 
  471.         stream tumbling along a rocky bed.";
  472.     }
  473.     upstream = At_End_Of_Road
  474.     building = At_End_Of_Road
  475.     north = At_End_Of_Road
  476.     forest = In_Forest_1
  477.     east = In_Forest_1
  478.     west = In_Forest_1
  479.     up = In_Forest_1
  480.     downstream = At_Slit_In_Streambed
  481.     south = At_Slit_In_Streambed
  482.     down = At_Slit_In_Streambed
  483.     depression = Outside_Grate
  484. ;
  485. Streambed: floatingdecoration
  486.     sdesc = "streambed"
  487.     noun = 'bed' 'streambed' 'rock'
  488.     adjective = 'stream' 'water' 'river' 'small' 'tumbling' 'splashing'
  489.             'babbling' 'rushing' 'rocky' 'bare' 'dry'
  490.     loclist = [ In_A_Valley  At_Slit_In_Streambed  Outside_Grate ]
  491. ;
  492. Valley: floatingdecoration
  493.     sdesc = "valley"
  494.     ldesc = {
  495.         if (Me.isIn(In_A_Valley))
  496.             "You're in it.";
  497.         else
  498.             pass ldesc;
  499.     }
  500.     noun = 'valley'
  501.     adjective = 'deep'
  502.     loclist = [ In_A_Valley  In_Forest_1  In_Forest_2 ]
  503. ;
  504.  
  505. In_Forest_1: CCR_room, lightroom, NotFarIn, Outside
  506.     sdesc = "In Forest"
  507.     ldesc = {
  508.         I(); "You are in open forest, with a deep valley to 
  509.         one side.";
  510.     }
  511.     valley = In_A_Valley
  512.     east = In_A_Valley
  513.     down = In_A_Valley
  514.  
  515.     // An approximation of the original code:
  516.     forest = {
  517.         if (rand(100) <= 50)
  518.             return In_Forest_1;
  519.         else
  520.             return In_Forest_2;
  521.     }
  522.  
  523.     forwards = In_Forest_1
  524.     north = In_Forest_1
  525.     west = In_Forest_1
  526.     south = In_Forest_1
  527. ;
  528.  
  529. In_Forest_2: CCR_room, lightroom, NotFarIn, Outside
  530.     sdesc = "In Forest"
  531.     ldesc = {
  532.         I(); "You are in open forest near both a valley and a 
  533.         road.";
  534.     }
  535.     road = At_End_Of_Road
  536.     north = At_End_Of_Road
  537.     valley = In_A_Valley
  538.     east = In_A_Valley
  539.     west = In_A_Valley
  540.     down = In_A_Valley
  541.     forest = In_Forest_1
  542.     south = In_Forest_1
  543. ;
  544.  
  545. At_Slit_In_Streambed: CCR_room, lightroom, NotFarIn, Outside
  546.     sdesc = "At Slit In Streambed"
  547.     ldesc = {
  548.         I(); "At your feet all the water of the stream 
  549.         splashes into a 2-inch slit in the rock.  Downstream 
  550.         the streambed is bare rock.";
  551.     }
  552.     building = At_End_Of_Road
  553.     upstream = In_A_Valley
  554.     north = In_A_Valley
  555.     forest = In_Forest_1
  556.     east = In_Forest_1
  557.     west = In_Forest_1
  558.     downstream = Outside_Grate
  559.     rock = Outside_Grate
  560.     bed = Outside_Grate
  561.     south = Outside_Grate
  562.  
  563.     slit = { return self.down; }
  564.     stream = { return self.down; }
  565.     down = {
  566.         "You don't fit through a two-inch slit!";
  567.         return nil;
  568.     }
  569. ;
  570. Slit: CCR_decoration
  571.     sdesc = "2-inch slit"
  572.     ldesc = "It's just a 2-inch slit in the rock, through which the
  573.         stream is flowing."
  574.     location = At_Slit_In_Streambed
  575.     noun = 'slit'
  576.     adjective = 'two' 'inch' '2-inch' 'two-inch'
  577. ;
  578.  
  579. Outside_Grate: CCR_room, lightroom, NotFarIn, Outside
  580.     sdesc = "Outside Grate"
  581.     ldesc = {
  582.         I(); "You are in a 20-foot depression floored with 
  583.         bare dirt.  Set into the dirt is a strong steel grate 
  584.         mounted in concrete.  A dry streambed leads into the 
  585.         depression.";
  586.     }
  587.     forest = In_Forest_1
  588.     east = In_Forest_1
  589.     west = In_Forest_1
  590.     south = In_Forest_1
  591.     building = At_End_Of_Road
  592.     upstream = At_Slit_In_Streambed
  593.     gully = At_Slit_In_Streambed
  594.     north = At_Slit_In_Streambed
  595.     
  596.     in = { return self.down; }
  597.     down = {
  598.         Grate.doEnter(Me);
  599.         return nil;
  600.     }
  601. ;
  602. Depression: CCR_decoration
  603.     sdesc = "20-foot depression"
  604.     ldesc = "You're standing in it."
  605.     location = Outside_Grate
  606.     noun = 'depression' 'dirt'
  607.     adjective = '20-foot' 'twenty' 'foot' 'twenty-foot' 'bare'
  608. ;
  609. Grate: fixeditem, keyedLockable
  610.     isopen = nil
  611.     islocked = true
  612.     sdesc = "steel grate"
  613.     ldesc = {
  614.         if (self.isIn(Outside_Grate)) {
  615.             "It just looks like an ordinary grate
  616.             mounted in concrete.";
  617.         }
  618.         else {
  619.             "It's just a 3x3 steel grate mounted
  620.             in the ceiling.";
  621.         }
  622.  
  623.         " It is ";
  624.         if (self.isopen)
  625.             "open.";
  626.         else if (self.islocked) 
  627.             "closed and locked.";
  628.         else 
  629.             "closed.";
  630.     }
  631.     noun = 'grate' 'lock' 'gate' 'grille'
  632.     adjective = 'metal' 'strong' 'steel' 'open' 'closed' 'locked'
  633.         'unlocked'
  634.  
  635.     locationOK = true // Tell compiler OK for location to be method
  636.     location = {
  637.         if (Me.isIn(Outside_Grate))
  638.             return Outside_Grate;
  639.         else        
  640.             return Below_The_Grate;
  641.     }
  642.     mykey = set_of_keys
  643.  
  644.     verDoEnter(actor) = {}
  645.     doEnter(actor) = {
  646.         if (not Grate.islocked) {
  647.             if (not Grate.isopen) {
  648.                 "(Opening the grate first.)\b";
  649.                 Grate.isopen := true;
  650.                         
  651.             }
  652.             if (actor.isIn(Outside_Grate))
  653.                 actor.travelTo(Below_The_Grate);
  654.             else
  655.                 actor.travelTo(Outside_Grate);
  656.         }
  657.         else {
  658.             "You can't go through a locked steel grate!";
  659.         }
  660.     }
  661.     
  662.     verIoPutIn(actor) = { "You can't put anything in that! "; }
  663.     verDoPick = { "You have no tools to pick the lock with."; }
  664. ;
  665.  
  666. Below_The_Grate: CCR_room, lightroom, NotFarIn
  667.     sdesc = "Below the Grate"
  668.     ldesc = {
  669.         I(); "You are in a small chamber beneath a 3x3 steel 
  670.         grate to the surface. A low crawl over cobbles leads 
  671.         inward to the west.";
  672.     }
  673.     crawl = In_Cobble_Crawl
  674.     cobble = In_Cobble_Crawl
  675.     in = In_Cobble_Crawl
  676.     west = In_Cobble_Crawl
  677.     pit = At_Top_Of_Small_Pit
  678.     debris = In_Debris_Room
  679.  
  680.     outdoors = { return self.up; }    // DMB: added
  681.     out = { return self.up; }
  682.     up = {
  683.         Grate.doEnter(Me);
  684.         return nil;
  685.     }
  686. ;
  687. Cobbles: floatingdecoration
  688.     sdesc = "cobbles"
  689.     adesc = "cobbles"
  690.     ldesc = "They're just ordinary cobbles."
  691.     noun = 'cobble' 'cobbles' 'cobblestones' 'cobblestone' 'stones'
  692.         'stone'
  693.     adjective = 'cobble'
  694.     loclist = [ Below_The_Grate  In_Cobble_Crawl  In_Debris_Room ]
  695. ;
  696.  
  697. In_Cobble_Crawl: CCR_room, lightroom, NotFarIn
  698.     sdesc = "In Cobble Crawl"
  699.     ldesc = {
  700.         I(); "You are crawling over cobbles in a low passage. 
  701.         There is a dim light at the east end of the 
  702.         passage.";
  703.     }
  704.     out = Below_The_Grate
  705.     tosurface = Below_The_Grate
  706.     east = Below_The_Grate
  707.     in = In_Debris_Room
  708.     dark = In_Debris_Room
  709.     west = In_Debris_Room
  710.     debris = In_Debris_Room
  711.     pit = At_Top_Of_Small_Pit
  712.  
  713.     // DMB: added the following, in accordance with its presence
  714.     // in In_Debris_Room and rooms beyond.
  715.     depression = {
  716.         Grate.doEnter(Me);
  717.  
  718.         // If the player didn't move, the grate must be
  719.         // locked.  Move the player underneath the grate.
  720.         if (Me.isIn(self)) {
  721.             "\b";
  722.             Me.travelTo(Below_The_Grate);
  723.         }
  724.         // We've already moved the player, but we have to
  725.         // return a value, so just return nil (which results
  726.         // in no more movement).
  727.         return nil;
  728.     }
  729. ;
  730.  
  731. In_Debris_Room: CCR_room, NotFarIn
  732.     sdesc = "In Debris Room"
  733.     ldesc = {
  734.         I(); "You are in a debris room filled with stuff 
  735.         washed in from the surface. A low wide passage with 
  736.         cobbles becomes plugged with mud and debris here, but 
  737.         an awkward canyon leads upward and west."; P();
  738.  
  739.         I(); "A note on the wall says, \"Magic word XYZZY.\"";
  740.     }
  741.     entrance = Below_The_Grate
  742.     crawl = In_Cobble_Crawl
  743.     cobble = In_Cobble_Crawl
  744.     passage = In_Cobble_Crawl
  745.     low = In_Cobble_Crawl
  746.     east = In_Cobble_Crawl
  747.     canyon = In_Awkward_Sloping_E_W_Canyon
  748.     in = In_Awkward_Sloping_E_W_Canyon
  749.     up = In_Awkward_Sloping_E_W_Canyon
  750.     west = In_Awkward_Sloping_E_W_Canyon
  751.     xyzzy = Inside_Building
  752.     pit = At_Top_Of_Small_Pit
  753.  
  754.     // The original occasionally allowed the player to teleport
  755.     // large distances in one turn.  This is just one example.
  756.     depression = {
  757.         Grate.doEnter(Me);
  758.  
  759.         // If the player didn't move, the grate must be
  760.         // locked.  Move the player underneath the grate.
  761.         if (Me.isIn(self)) {
  762.             "\b";
  763.             Me.travelTo(Below_The_Grate);
  764.         }
  765.  
  766.         // We've already moved the player, but we have to
  767.         // return a value, so just return nil (which results
  768.         // in no more movement).
  769.         return nil;
  770.     }
  771. ;
  772. Debris: floatingdecoration
  773.     sdesc = "debris"
  774.     ldesc = "Yuck."
  775.     noun = 'debris' 'stuff' 'mud'
  776.     loclist = [ In_Debris_Room  In_Arched_Hall ]
  777. ;
  778. XyzzyNote: CCR_decoration, readable
  779.     sdesc = "note"
  780.     ldesc = { self.readdesc; }
  781.     readdesc = "The note says \"Magic word XYZZY\"."
  782.     noun = 'note'
  783.     location = In_Debris_Room
  784. ;
  785.  
  786. In_Awkward_Sloping_E_W_Canyon: CCR_room, NotFarIn
  787.     sdesc = "In Awkward Sloping E/W Canyon"
  788.     ldesc = {
  789.         I(); "You are in an awkward sloping east/west 
  790.         canyon.";
  791.     }
  792.  
  793.     entrance = Below_The_Grate
  794.     down = In_Debris_Room
  795.     east = In_Debris_Room
  796.     debris = In_Debris_Room
  797.     in = In_Bird_Chamber
  798.     up = In_Bird_Chamber
  799.     west = In_Bird_Chamber
  800.     pit = At_Top_Of_Small_Pit
  801.  
  802.     depression = {
  803.         Grate.doEnter(Me);
  804.  
  805.         // If the player didn't move, the grate must be
  806.         // locked.  Move the player underneath the grate.
  807.         if (Me.isIn(self)) {
  808.             "\b";
  809.             Me.travelTo(Below_The_Grate);
  810.         }
  811.         
  812.         // We've already moved the player, but we have to
  813.         // return a value, so just return nil (which results
  814.         // in no more movement).
  815.         return nil;
  816.     }
  817. ;
  818.  
  819. In_Bird_Chamber: CCR_room, NotFarIn
  820.     sdesc = "In Bird Chamber"
  821.     ldesc = {
  822.         I(); "You are in a splendid chamber thirty feet high. 
  823.         The walls are frozen rivers of orange stone.  An 
  824.         awkward canyon and a good passage exit from east and 
  825.         west sides of the chamber.";
  826.     }
  827.  
  828.     entrance = Below_The_Grate
  829.     debris = In_Debris_Room
  830.     canyon = In_Awkward_Sloping_E_W_Canyon
  831.     east = In_Awkward_Sloping_E_W_Canyon
  832.     passage = At_Top_Of_Small_Pit
  833.     pit = At_Top_Of_Small_Pit
  834.     west = At_Top_Of_Small_Pit
  835.  
  836.     depression = {
  837.         Grate.doEnter(Me);
  838.  
  839.         // If the player didn't move, the grate must be
  840.         // locked.  Move the player underneath the grate.
  841.         if (Me.isIn(self)) {
  842.             "\b";
  843.             Me.travelTo(Below_The_Grate);
  844.         }
  845.  
  846.         // We've already moved the player, but we have to
  847.         // return a value, so just return nil (which results
  848.         // in no more movement).
  849.         return nil;
  850.     }
  851. ;
  852.  
  853. At_Top_Of_Small_Pit: CCR_room, NotFarIn
  854.     sdesc = "At Top of Small Pit"
  855.     ldesc = {
  856.         // Note: this used to say "An east passage ends here..."
  857.         // but that's obviously a mistake.
  858.  
  859.         I(); "At your feet is a small pit breathing traces of 
  860.         white mist.  A west passage ends here except for a 
  861.         small crack leading on."; P();
  862.  
  863.         I(); "Rough stone steps lead down the pit.";
  864.     }
  865.     entrance = Below_The_Grate
  866.     debris = In_Debris_Room
  867.     passage = In_Bird_Chamber
  868.     east = In_Bird_Chamber
  869.     crack = { return self.west; }
  870.     west = {
  871.         "The crack is far too small for you to follow.";
  872.         return nil;
  873.     }
  874.  
  875.     down = {
  876.         if (large_gold_nugget.isIn(Me))
  877.             return broken_neck.death;
  878.         else
  879.             return In_Hall_Of_Mists;
  880.     }
  881.  
  882.     depression = {
  883.         Grate.doEnter(Me);
  884.  
  885.         // If the player didn't move, the grate must be
  886.         // locked.  Move the player underneath the grate.
  887.         if (Me.isIn(self)) {
  888.             "\b";
  889.             Me.travelTo(Below_The_Grate);
  890.         }
  891.         
  892.         // We've already moved the player, but we have to
  893.         // return a value, so just return nil (which results
  894.         // in no more movement).
  895.         return nil;
  896.     }
  897. ; 
  898. SmallPit: CCR_decoration
  899.     sdesc = "small pit"
  900.     ldesc = "The pit is breathing traces of white mist."
  901.     location = At_Top_Of_Small_Pit
  902.     noun = 'pit'
  903. ;
  904. PitCrack: CCR_decoration
  905.     sdesc = "crack"
  906.     ldesc = "The crack is very small -- far too small for you to follow."
  907.     location = At_Top_Of_Small_Pit
  908.     noun = 'crack'
  909.     adjective = 'small'
  910. ;
  911. Mist: floatingdecoration
  912.     sdesc = "mist"
  913.     ldesc = {
  914.         "Mist is a white vapor, usually water, seen from time 
  915.         to time in caverns.  It can be found anywhere but is 
  916.         frequently a sign of a deep pit leading down to 
  917.         water.";
  918.     }
  919.     noun = 'mist' 'vapor' 'wisps'
  920.     adjective = 'white' 'water'
  921.     loclist = [
  922.         At_Top_Of_Small_Pit In_Hall_Of_Mists
  923.         On_East_Bank_Of_Fissure  At_Window_On_Pit_1
  924.         At_West_End_Of_Hall_Of_Mists In_Misty_Cavern
  925.         In_Mirror_Canyon  At_Reservoir At_Window_On_Pit_2
  926.         On_Sw_Side_Of_Chasm
  927.     ]
  928. ;
  929.  
  930. In_Hall_Of_Mists: CCR_room
  931.     sdesc = "In Hall of Mists"
  932.     ldesc = {
  933.         I(); "You are at one end of a vast hall stretching 
  934.         forward out of sight to the west.  There are openings 
  935.         to either side.  Nearby, a wide stone staircase leads 
  936.         downward.  The hall is filled with wisps of white 
  937.         mist swaying to and fro almost as if alive.  A cold 
  938.         wind blows up the staircase.  There is a passage at 
  939.         the top of a dome behind you."; P();
  940.  
  941.         I(); "Rough stone steps lead up the dome.";
  942.     }
  943.     left = In_Nugget_Of_Gold_Room
  944.     south = In_Nugget_Of_Gold_Room
  945.     forwards = On_East_Bank_Of_Fissure
  946.     hall = On_East_Bank_Of_Fissure
  947.     west = On_East_Bank_Of_Fissure
  948.     stairs = In_Hall_Of_Mt_King
  949.     down = In_Hall_Of_Mt_King
  950.     north = In_Hall_Of_Mt_King
  951.     y2 = Jumble_Of_Rock
  952.  
  953.     up = {
  954.         if (large_gold_nugget.isIn(Me)) {
  955.             "The dome is unclimbable.";
  956.             return nil;
  957.         }
  958.         else {
  959.             return At_Top_Of_Small_Pit;
  960.         }
  961.     }
  962. ;
  963. Staircase: CCR_decoration
  964.     sdesc = "wide stone staircase"
  965.     ldesc = "The staircase leads down."
  966.     location = In_Hall_Of_Mists
  967.     noun = 'stair' 'stairs' 'staircase'
  968.     adjective = 'wide' 'stone'
  969. ;
  970. DomeSteps: CCR_decoration
  971.     sdesc = "rough stone steps"
  972.     ldesc = "The rough stone steps lead up the dome."
  973.     location = In_Hall_Of_Mists
  974.     noun = 'stair' 'stairs' 'staircase'
  975.     adjective = 'rough' 'stone'
  976. ;
  977. Dome: CCR_decoration
  978.     sdesc = "dome"
  979.     ldesc = {
  980.         if (large_gold_nugget.isIn(Me))
  981.             "I'm not sure you'll be able to get up it
  982.             with what you're carrying.";
  983.         else
  984.             "It looks like you might be able to climb up it.";
  985.     }
  986.     location = In_Hall_Of_Mists
  987.     noun = 'dome'
  988.  
  989.     verDoClimb(actor) = {}
  990.     doClimb(actor) = {
  991.         actor.travelTo(In_Hall_Of_Mists.up);
  992.     }
  993. ;
  994.  
  995. On_East_Bank_Of_Fissure: CCR_room
  996.     sdesc = "On East Bank of Fissure"
  997.     ldesc = {
  998.         I(); "You are on the east bank of a fissure slicing 
  999.         clear across the hall. The mist is quite thick here, 
  1000.         and the fissure is too wide to jump.";
  1001.  
  1002.          if (CrystalBridge.exists) {
  1003.             P(); I();
  1004.             "A crystal bridge now spans the fissure.";
  1005.         }
  1006.     }
  1007.     hall = In_Hall_Of_Mists
  1008.     east = In_Hall_Of_Mists
  1009.  
  1010.     forwards = { return self.jump; }
  1011.     jump = {
  1012.         if (CrystalBridge.exists) {
  1013.             "I respectfully suggest you go across the 
  1014.             bridge instead of jumping.";
  1015.  
  1016.             return nil;
  1017.         }
  1018.         else
  1019.             return didnt_make_it.death;
  1020.     }
  1021.  
  1022.     over = { return self.across; }
  1023.     west = { return self.across; }
  1024.     cross = { return self.across; }
  1025.     across = {
  1026.         CrystalBridge.doCross(Me);
  1027.         return nil;
  1028.     }
  1029.  
  1030.     //
  1031.     // NPC's can go across too, but only if the bridge exists.
  1032.     //
  1033.     NPCexit1 = {
  1034.         if (CrystalBridge.exists)
  1035.             return West_Side_Of_Fissure;
  1036.         else
  1037.             return nil;
  1038.     }
  1039. ;
  1040. BridgeFissure: floatingdecoration
  1041.     sdesc = "fissure"
  1042.     ldesc = {
  1043.         if (CrystalBridge.exists)
  1044.             "A crystal bridge now spans the fissure.";
  1045.         else
  1046.             "The fissure looks far too wide to jump.";
  1047.     }
  1048.     noun = 'fissure'
  1049.     adjective = 'wide'
  1050.     loclist = [ West_Side_Of_Fissure  On_East_Bank_Of_Fissure ]
  1051. ;
  1052. CrystalBridge: CCR_decoration
  1053.     exists = nil
  1054.     sdesc = "Crystal bridge"
  1055.     ldesc = "It spans the fissure, thereby providing you a way across."
  1056.     locationOK = true    // tell compiler OK for location to be method
  1057.     location = {
  1058.         if (self.exists) {
  1059.             if (Me.isIn(West_Side_Of_Fissure))
  1060.                 return West_Side_Of_Fissure;
  1061.             else
  1062.                 return On_East_Bank_Of_Fissure;
  1063.         }
  1064.         else
  1065.             return nil;
  1066.     }
  1067.     noun = 'bridge'
  1068.     adjective = 'crystal' 'magic' 'rod'
  1069.  
  1070.     verDoCross(actor) = {}
  1071.     doCross(actor) = {
  1072.         if (self.exists) {
  1073.             if (actor.isIn(On_East_Bank_Of_Fissure))
  1074.                 actor.travelTo(West_Side_Of_Fissure);
  1075.             else
  1076.                 actor.travelTo(On_East_Bank_Of_Fissure);
  1077.         }
  1078.         else
  1079.             "There is no way across the fissure.";
  1080.     }
  1081. ;
  1082.  
  1083. In_Nugget_Of_Gold_Room: CCR_room
  1084.     sdesc = "In Nugget of Gold Room"
  1085.     ldesc = {
  1086.         I(); "This is a low room with a crude note on the 
  1087.         wall. "; NuggetNote.readdesc;
  1088.     }
  1089.     hall = In_Hall_Of_Mists
  1090.     out = In_Hall_Of_Mists
  1091.     north = In_Hall_Of_Mists
  1092. ;
  1093. NuggetNote: CCR_decoration, readable
  1094.     sdesc = "note"
  1095.     ldesc = { self.readdesc; }
  1096.     readdesc = {
  1097.         "The note says, \"You won't get it up the steps\".";
  1098.     }
  1099.     location = In_Nugget_Of_Gold_Room
  1100.     noun = 'note'
  1101.     adjective = 'crude'
  1102. ;
  1103.  
  1104. In_Hall_Of_Mt_King: CCR_room
  1105.     sdesc = "In Hall of Mt King"
  1106.     ldesc = {
  1107.         I(); "You are in the hall of the mountain king, with 
  1108.         passages off in all directions.";
  1109.  
  1110.         if (Snake.isIn(self)) {
  1111.             P();
  1112.             I(); "A huge green fierce snake bars the way!";
  1113.         }
  1114.     }
  1115.     stairs = In_Hall_Of_Mists
  1116.     up = In_Hall_Of_Mists
  1117.     east = In_Hall_Of_Mists
  1118.  
  1119.     left = { return self.north; }
  1120.     north = {
  1121.         if (self.snakecheck)
  1122.             return Low_N_S_Passage;
  1123.         else
  1124.             return nil;
  1125.     }
  1126.     
  1127.     right = { return self.south; }
  1128.     south = {
  1129.         if (self.snakecheck)
  1130.             return In_South_Side_Chamber;
  1131.         else
  1132.             return nil;
  1133.     }
  1134.  
  1135.     forwards = { return self.west; }
  1136.     west = {
  1137.         if (self.snakecheck)
  1138.             return In_West_Side_Chamber;
  1139.         else
  1140.             return nil;
  1141.     }
  1142.  
  1143.     /*
  1144.      * An interesting little bit of trivia here:
  1145.      * 35% of the time you can slip past the snake and into
  1146.      * the secret canyon.  (This is in the original fortran
  1147.      * code.)  But if you say "secret" you will *always* sneak
  1148.      * by it.
  1149.      */
  1150.     sw = {
  1151.         if (rand(100) <= 35) {
  1152.             return In_Secret_E_W_Canyon;
  1153.         }
  1154.         else {
  1155.             if (self.snakecheck)
  1156.                 return In_Secret_E_W_Canyon;
  1157.             else
  1158.                 return nil;
  1159.         }
  1160.     }
  1161.     secret = In_Secret_E_W_Canyon
  1162.  
  1163.     snakecheck = {
  1164.         if (Snake.isIn(Me.location)) {
  1165.             "You can't get by the snake.";
  1166.             return nil;
  1167.         }
  1168.         else
  1169.             return true;
  1170.     }
  1171. ;
  1172. Snake: CCR_decoration
  1173.     sdesc = "snake"
  1174.     ldesc = "I wouldn't mess with it if I were you."
  1175.     location = In_Hall_Of_Mt_King
  1176.     noun = 'snake' 'cobra' 'asp'
  1177.     adjective = 'huge' 'fierce' 'green' 'ferocious' 'venemous'
  1178.         'venomous' 'large' 'big' 'killer'
  1179.  
  1180.     verDoFeed(actor) = {}
  1181.     doFeed(actor) = {
  1182.         if (little_bird.isIn(Me)) {
  1183.             "The snake has now devoured your bird.";
  1184.             little_bird.moveInto(nil);
  1185.         }
  1186.         else if (little_bird.isIn(self.location))
  1187.             "You have nothing to feed it.";
  1188.         else
  1189.             "There's nothing here it wants to eat (except 
  1190.             perhaps you).";
  1191.     }
  1192.     verIoGiveTo(actor) = {}
  1193.     doGiveTo(actor, dobj) = {
  1194.         if (dobj = little_bird)
  1195.             self.doFeed(actor);
  1196.         else {
  1197.             "The snake does not seem interested in ";
  1198.             dobj.thedesc; ".";
  1199.         }
  1200.     }
  1201.     
  1202.     verDoAttack(actor) = {}
  1203.     doAttack(actor) = {
  1204.         "Attacking the snake both doesn't work and is very 
  1205.         dangerous.";
  1206.     }
  1207.     verDoAttackWith(actor, io) = { self.verDoAttack(actor); }
  1208.     doAttackWith(actor, io) = { self.doAttack(actor); }
  1209.  
  1210.     verIoThrowAt(actor) = { self.verIoGiveTo(actor); }
  1211.     ioThrowAt(actor, dobj) = {
  1212.         if (dobj = axe)
  1213.             self.doAttackWith(actor, dobj);
  1214.         else
  1215.             self.ioGiveTo(actor, dobj);
  1216.     }
  1217.     verIoThrowTo(actor) = { self.verIoGiveTo(actor); }
  1218.     ioThrowTo(actor, dobj) = {
  1219.         if (dobj = axe)
  1220.             self.doAttackWith(actor, dobj);
  1221.         else
  1222.             self.ioGiveTo(actor, dobj);
  1223.     }
  1224.     
  1225.     verDoKick(actor) = {}
  1226.     doKick(actor) = { "That would be satisfying, but totally insane."; }
  1227.  
  1228.     verifyRemove(actor) = { "Surely you're joking."; }
  1229. ;
  1230.  
  1231. At_West_End_Of_Twopit_Room: CCR_room
  1232.     sdesc = "At West End of Twopit Room"
  1233.     ldesc = {
  1234.         I(); "You are at the west end of the twopit room.  
  1235.          There is a large hole in the wall above the pit at 
  1236.         this end of the room.";
  1237.  
  1238.         if (PlantStickingUp.isIn(self)) {
  1239.             P(); I(); PlantStickingUp.ldesc;
  1240.         }
  1241.     }
  1242.     east = At_East_End_Of_Twopit_Room
  1243.     across = At_East_End_Of_Twopit_Room
  1244.     west = In_Slab_Room
  1245.     slab = In_Slab_Room
  1246.     down = In_West_Pit
  1247.     pit = In_West_Pit
  1248.  
  1249.     up = { return self.hole; }    // DMB: added
  1250.     hole = {
  1251.         "It is too far up for you to reach.";
  1252.         return nil;
  1253.     }
  1254. ;
  1255. HoleAbovePit_1: CCR_decoration
  1256.     sdesc = "hole above pit"
  1257.     ldesc = {
  1258.         "The hole is in the wall above the pit at 
  1259.         this end of the room.";
  1260.     }
  1261.     noun = 'hole'
  1262.     adjective = 'large'
  1263.     location = At_West_End_Of_Twopit_Room
  1264.  
  1265.     verDoEnter(actor) = { "It is too far up for you to reach."; }
  1266. ;
  1267. PlantStickingUp: CCR_decoration
  1268.     sdesc = {
  1269.         if (Plant.size = 1)
  1270.             "top of 12-foot-tall beanstalk";
  1271.         else
  1272.             "huge beanstalk";
  1273.     }
  1274.     ldesc = {
  1275.         if (Plant.size = 1)
  1276.             "The top of a 12-foot-tall beanstalk is 
  1277.             poking out of the west pit.";
  1278.         else
  1279.             "There is a huge beanstalk growing out of the 
  1280.             west pit up to the hole.";
  1281.     }
  1282.     noun = 'plant' 'beanstalk' 'stalk'
  1283.     adjective = 'bean' 'giant' 'tiny' 'little' 'murmuring'
  1284.         '12-foot-tall' 'twelve' 'foot' 'tall' 'bellowing'
  1285.  
  1286.     location = {
  1287.         if (Plant.size = 0)
  1288.             return nil;
  1289.         else if (Me.isIn(At_West_End_Of_Twopit_Room))
  1290.             return At_West_End_Of_Twopit_Room;
  1291.         else
  1292.             return At_East_End_Of_Twopit_Room;        
  1293.     }
  1294. ;
  1295.  
  1296. In_East_Pit: CCR_room, NoNPC
  1297.     sdesc = "In East Pit"
  1298.     ldesc = {
  1299.         I(); "You are at the bottom of the eastern pit in the 
  1300.         twopit room.  There is a small pool of oil in one 
  1301.         corner of the pit.";
  1302.     }
  1303.     up = At_East_End_Of_Twopit_Room
  1304.     out = At_East_End_Of_Twopit_Room
  1305. ;
  1306. EastPit: CCR_decoration
  1307.     sdesc = "eastern pit"
  1308.     ldesc = "You're in it."
  1309.     noun = 'pit' 'corner'
  1310.     adjective = 'east' 'eastern'
  1311.     location = In_East_Pit
  1312. ;
  1313. Oil: CCR_decoration
  1314.     sdesc = "pool of oil"
  1315.     noun = 'pool' 'oil'
  1316.     adjective = 'small'
  1317.     location = In_East_Pit
  1318.  
  1319.     verDoTake(actor) = {
  1320.         if (not bottle.isIn(Me))
  1321.             "You have nothing in which to carry the oil.";
  1322.     }
  1323.     doTake(actor) = {
  1324.         bottle.ioPutIn(actor, self);
  1325.     }
  1326.     verDoPutIn(actor, io) = {}
  1327.     doPutIn(actor, io) = {
  1328.         if (io <> bottle)
  1329.             "You have nothing in which to carry the oil.";
  1330.         else
  1331.             bottle.ioPutIn(actor, self);
  1332.     }
  1333. ;
  1334.  
  1335. In_West_Pit: CCR_room, NoNPC
  1336.     sdesc = "In West Pit"
  1337.     ldesc = {
  1338.         I(); "You are at the bottom of the western pit in the 
  1339.         twopit room.  There is a large hole in the wall about 
  1340.         25 feet above you."; P();
  1341.  
  1342.         I(); Plant.ldesc;
  1343.     }
  1344.     up = At_West_End_Of_Twopit_Room
  1345.     out = At_West_End_Of_Twopit_Room
  1346.     climb = {
  1347.         if (Plant.size < 1 or Plant.size > 2) {
  1348.             "There is nothing here to climb.  Use \"up\" 
  1349.             or \"out\" to leave the pit.";
  1350.  
  1351.             return nil;
  1352.         }
  1353.         else {
  1354.             Plant.doClimb(Me);
  1355.             return nil;
  1356.         }
  1357.     }
  1358. ;
  1359. Plant: CCR_decoration
  1360.     size = 0
  1361.  
  1362.     sdesc = {
  1363.         if (self.size = 0)
  1364.             "plant";
  1365.         else if (self.size = 1)
  1366.             "beanstalk";
  1367.         else if (self.size = 2)
  1368.             "giant beanstalk";
  1369.     }
  1370.     ldesc = {
  1371.         if (self.size = 0)
  1372.             "There is a tiny little plant in the pit, 
  1373.             murmuring \"Water, water, ...\"";
  1374.         else if (self.size = 1)
  1375.             "There is a 12-foot-tall beanstalk stretching 
  1376.             up out of the pit, bellowing \"Water!! 
  1377.             Water!!\"";
  1378.         else if (self.size = 2)
  1379.             "There is a gigantic beanstalk stretching all 
  1380.             the way up to the hole.";
  1381.     }
  1382.     location = In_West_Pit
  1383.     noun = 'plant' 'beanstalk' 'stalk'
  1384.     adjective = 'bean' 'giant' 'tiny' 'little' 'murmuring'
  1385.         '12-foot-tall' 'twelve' 'foot' 'tall' 'bellowing'
  1386.  
  1387.     verDoClimb(actor) = {
  1388.         if (self.size = 0)
  1389.             "It's just a little plant!";
  1390.     }
  1391.     doClimb(actor) = {
  1392.         if (self.size = 1) {
  1393.             "You have climbed up the plant and out of the 
  1394.             pit.\b";
  1395.  
  1396.             Me.travelTo(At_West_End_Of_Twopit_Room);
  1397.         }
  1398.         else {
  1399.             "You clamber up the plant and scurry through 
  1400.             the hole at the top.\b";
  1401.  
  1402.             Me.travelTo(In_Narrow_Corridor);
  1403.         }
  1404.     }
  1405.  
  1406.     verDoWater(actor) = {}
  1407.     doWater(actor) = {
  1408.         if (bottle.isIn(Me))
  1409.             bottle.doPourOn(actor, self);
  1410.         else
  1411.             "You have nothing to water the plant with.";
  1412.     }
  1413.     verDoOil(actor) = {}
  1414.     doOil(actor) = { self.doWater(actor); }
  1415.  
  1416.     // The plant's not going anywhere.
  1417.     verifyRemove(actor) = {
  1418.         "The plant has exceptionally deep roots and cannot be 
  1419.         pulled free.";
  1420.     }
  1421.  
  1422.     water = {
  1423.         self.size := self.size + 1;
  1424.  
  1425.         if (self.size = 1)
  1426.             "The plant spurts into furious growth for a 
  1427.             few seconds.";
  1428.         else if (self.size = 2)
  1429.             "The plant grows explosively, almost filling 
  1430.             the bottom of the pit.";
  1431.         else {
  1432.             "You've over-watered the plant!  It's 
  1433.             shriveling up!  It's, it's...";
  1434.  
  1435.             self.size := 0;
  1436.         }
  1437.     }
  1438. ;
  1439. WestPit: CCR_decoration
  1440.     sdesc = "western pit"
  1441.     ldesc = "You're in it."
  1442.     noun = 'pit' 'corner'
  1443.     adjective = 'west' 'western'
  1444.     location = In_West_Pit
  1445. ;
  1446. HoleAbovePit_2: CCR_decoration
  1447.     sdesc = "hole above pit"
  1448.     ldesc = "The hole is in the wall above you."
  1449.     noun = 'hole'
  1450.     adjective = 'large'
  1451.     location = At_West_End_Of_Twopit_Room
  1452.  
  1453.     verDoEnter(actor) = {
  1454.         "You're not anywhere near the pit -- it's far overhead.";
  1455.     }
  1456. ;
  1457.  
  1458. West_Side_Of_Fissure: CCR_room
  1459.     sdesc = "West Side of Fissure"
  1460.     ldesc = {
  1461.         I(); "You are on the west side of the fissure in the 
  1462.         hall of mists.";
  1463.  
  1464.         if (CrystalBridge.exists) {
  1465.             P(); I();
  1466.             "A crystal bridge now spans the fissure.";
  1467.         }
  1468.     }
  1469.  
  1470.     west = At_West_End_Of_Hall_Of_Mists
  1471.  
  1472.     forwards = { return self.jump; }
  1473.     jump = {
  1474.         if (CrystalBridge.exists) {
  1475.             "I respectfully suggest you go across the 
  1476.             bridge instead of jumping.";
  1477.  
  1478.             return nil;
  1479.         }
  1480.         else
  1481.             return didnt_make_it.death;
  1482.     }
  1483.  
  1484.     over = { return self.across; }
  1485.     east = { return self.across; }
  1486.     cross = { return self.across; }
  1487.     across = {
  1488.         CrystalBridge.doCross(Me);
  1489.         return nil;
  1490.     }
  1491.  
  1492.     north = {
  1493.         "You have crawled through a very low wide passage 
  1494.         parallel to and north of the hall of mists.\b";
  1495.  
  1496.         return At_West_End_Of_Hall_Of_Mists;
  1497.     }
  1498.  
  1499.     //
  1500.     // NPC's can go across too, but only if the bridge exists.
  1501.     //
  1502.     NPCexit1 = {
  1503.         if (CrystalBridge.exists)
  1504.             return On_East_Bank_Of_Fissure;
  1505.         else
  1506.             return nil;
  1507.     }
  1508. ;
  1509.  
  1510. Low_N_S_Passage: CCR_room
  1511.     sdesc = "Low N/S Passage"
  1512.     ldesc = {
  1513.         I(); "You are in a low N/S passage at a hole in the 
  1514.         floor.  The hole goes down to an E/W passage.";
  1515.     }
  1516.     hall = In_Hall_Of_Mt_King
  1517.     out = In_Hall_Of_Mt_King
  1518.     south = In_Hall_Of_Mt_King
  1519.     north = At_Y2
  1520.     y2 = At_Y2
  1521.     down = In_Dirty_Passage
  1522.     hole = In_Dirty_Passage
  1523. ;
  1524.  
  1525. In_South_Side_Chamber: CCR_room
  1526.     sdesc = "In South Side Chamber"
  1527.     ldesc = {
  1528.         I(); "You are in the south side chamber.";
  1529.     }
  1530.     hall = In_Hall_Of_Mt_King
  1531.     out = In_Hall_Of_Mt_King
  1532.     north = In_Hall_Of_Mt_King
  1533. ;
  1534.  
  1535. In_West_Side_Chamber: CCR_room
  1536.     sdesc = "In West Side Chamber"
  1537.     ldesc = {
  1538.         I(); "You are in the west side chamber of the hall of 
  1539.         the mountain king. A passage continues west and up 
  1540.         here.";
  1541.     }
  1542.     hall = In_Hall_Of_Mt_King
  1543.     out = In_Hall_Of_Mt_King
  1544.     east = In_Hall_Of_Mt_King
  1545.     west = Crossover
  1546.     up = Crossover
  1547. ;
  1548.  
  1549. At_Y2: CCR_room
  1550.     sdesc = "At \"Y2\""
  1551.     ldesc = {
  1552.         I(); "You are in a large room, with a passage to the 
  1553.         south, a passage to the west, and a wall of broken 
  1554.         rock to the east.  There is a large \"Y2\" on a rock 
  1555.         in the room's center.";
  1556.  
  1557.         self.hollowvoice;
  1558.     }
  1559.     plugh = Inside_Building
  1560.     south = Low_N_S_Passage
  1561.     east = Jumble_Of_Rock
  1562.     wall = Jumble_Of_Rock
  1563.     broken = Jumble_Of_Rock
  1564.     west = At_Window_On_Pit_1
  1565.      plover = {
  1566.         if (egg_sized_emerald.isIn(Me))
  1567.             egg_sized_emerald.moveInto(In_Plover_Room);
  1568.             
  1569.         return In_Plover_Room;
  1570.     }
  1571.  
  1572.     hollowvoice = {
  1573.         if (rand(100) <= 25) {
  1574.             P(); I(); "A hollow voice says, \"Plugh.\"";
  1575.         }
  1576.     }
  1577. ;
  1578. Y2Rock: CCR_decoration, chairitem, readable
  1579.     sdesc = "\"Y2\" rock"
  1580.     ldesc = { self.readdesc; }
  1581.     readdesc = "There is a large \"Y2\" painted on the rock."
  1582.     noun = 'rock'
  1583.     adjective = 'y2'
  1584.  
  1585.     location = At_Y2
  1586.  
  1587.     onroom = true    // We set ON the rock, not IN it.
  1588.  
  1589.     //
  1590.     // We wan't the player to be able to pick things in the
  1591.     // room up while sitting on the rock.
  1592.     //
  1593.     reachable = {
  1594.         return [Y2Rock] + At_Y2.contents;
  1595.     }
  1596. ;
  1597.  
  1598. Jumble_Of_Rock: CCR_room
  1599.     sdesc = "Jumble of Rock"
  1600.     ldesc = {
  1601.         I(); "You are in a jumble of rock, with cracks 
  1602.         everywhere.";
  1603.     }
  1604.     down = At_Y2
  1605.     y2 = At_Y2
  1606.     up = In_Hall_Of_Mists
  1607. ;
  1608.  
  1609. At_Window_On_Pit_1: CCR_room
  1610.     sdesc = "At Window on Pit"
  1611.     ldesc = {
  1612.         I(); "You're at a low window overlooking a huge pit, 
  1613.         which extends up out of sight.  A floor is 
  1614.         indistinctly visible over 50 feet below.  Traces of 
  1615.         white mist cover the floor of the pit, becoming 
  1616.         thicker to the right. Marks in the dust around the 
  1617.         window would seem to indicate that someone has been 
  1618.         here recently.  Directly across the pit from you and 
  1619.         25 feet away there is a similar window looking into a 
  1620.         lighted room.  A shadowy figure can be seen there 
  1621.         peering back at you.";
  1622.     }
  1623.     east = At_Y2
  1624.     y2 = At_Y2
  1625.     jump = { return broken_neck.death; }
  1626. ;
  1627. Window: floatingdecoration
  1628.     sdesc = "window"
  1629.     ldesc = "It looks like a regular window."
  1630.     noun = 'window'
  1631.     adjective = 'low'
  1632.     loclist = [ At_Window_On_Pit_1  At_Window_On_Pit_2 ]
  1633.  
  1634.     verDoOpen(actor) = {}
  1635.     doOpen(actor) = { "OK, the window is now open."; }
  1636.     verDoClose(actor) = {}
  1637.     doClose(actor) = { "OK, the window is now closed."; }
  1638. ;
  1639. WindowPit: floatingdecoration
  1640.     sdesc = "huge pit"
  1641.     ldesc = {
  1642.         "It's so deep you can barely make out the floor below,
  1643.         and the top isn't visible at all.";
  1644.     }
  1645.     noun = 'pit'
  1646.     adjective = 'deep' 'large'
  1647.     loclist = [ At_Window_On_Pit_1  At_Window_On_Pit_2 ]
  1648. ;
  1649. MarksInTheDust: floatingdecoration
  1650.     sdesc = "marks in the dust"
  1651.     adesc = { self.sdesc; }
  1652.     ldesc = "Evidently you're not alone here."
  1653.     loclist = [ At_Window_On_Pit_1  At_Window_On_Pit_2 ]
  1654. ;
  1655. ShadowyFigure: floatingdecoration
  1656.     sdesc = "shadowy figure"
  1657.     ldesc = {
  1658.         "The shadowy figure seems to be trying to attract 
  1659.         your attention.";
  1660.     }
  1661.     noun = 'figure' 'shadow' 'person' 'individual'
  1662.     adjective = 'shadowy' 'mysterious'
  1663.     loclist = [ At_Window_On_Pit_1  At_Window_On_Pit_2 ]
  1664. ;
  1665. In_Dirty_Passage: CCR_room
  1666.     sdesc = "In Dirty Passage"
  1667.     ldesc = {
  1668.         I(); "You are in a dirty broken passage.  To the east 
  1669.         is a crawl.  To the west is a large passage.  Above 
  1670.         you is a hole to another passage.";
  1671.     }
  1672.     east = On_Brink_Of_Pit
  1673.     crawl = On_Brink_Of_Pit
  1674.     up = Low_N_S_Passage
  1675.     hole = Low_N_S_Passage
  1676.     west = In_Dusty_Rock_Room
  1677.     bedquilt = In_Bedquilt
  1678.     slab = In_Slab_Room    // DMB: this is only in some versions
  1679. ;
  1680.  
  1681. On_Brink_Of_Pit: CCR_room
  1682.     sdesc = "On Brink of Pit"
  1683.     ldesc = {
  1684.         I(); "You are on the brink of a small clean climbable 
  1685.         pit.  A crawl leads west.";
  1686.     }
  1687.     west = In_Dirty_Passage
  1688.     crawl = In_Dirty_Passage
  1689.     down = In_Pit
  1690.     pit = In_Pit
  1691.     climb = In_Pit
  1692.     in = In_Pit    // DMB: added
  1693. ;
  1694. CleanPit: CCR_decoration
  1695.     sdesc = "small pit"
  1696.     ldesc = "It looks like you might be able to climb down into it."
  1697.     noun = 'pit'
  1698.     adjective = 'small' 'clean' 'climable'
  1699.     location = On_Brink_Of_Pit
  1700.  
  1701.     verDoClimb(actor) = {}
  1702.     doClimb(actor) = { Me.travelTo(self.location.climb); }
  1703.     verDoEnter(actor) = {}
  1704.     doEnter(actor) = { self.doClimb(actor); }
  1705. ;
  1706. In_Pit: CCR_room, NoNPC
  1707.     sdesc = "In Pit"
  1708.     ldesc = {
  1709.         I(); "You are in the bottom of a small pit with a 
  1710.         little stream, which enters and exits through tiny 
  1711.         slits.";
  1712.     }
  1713.     climb = On_Brink_Of_Pit
  1714.     up = On_Brink_Of_Pit
  1715.     out = On_Brink_Of_Pit
  1716.  
  1717.     slit = { return self.down; }
  1718.     stream = { return self.down; }
  1719.     upstream = { return self.down; }
  1720.     downstream = { return self.down; }
  1721.     down = {
  1722.         // In the original, the same message given
  1723.         // in At_Slit_In_Streambed was used here.
  1724.         // Since it's not quite right (and was probably only
  1725.         // reused to save space), I've changed it slightly.
  1726.  
  1727.         "You don't fit through the tiny slits!";
  1728.         return nil;
  1729.     }
  1730. ;
  1731. PitSlits: decoration
  1732.     sdesc = "tiny slits"
  1733.     adesc = { self.sdesc; }
  1734.     ldesc = {
  1735.         "The slits form a complex pattern in the rock.";
  1736.     }
  1737.     location = In_Pit
  1738.     noun = 'slit' 'slits'
  1739.     adjective = 'tiny'
  1740. ;
  1741.  
  1742. In_Dusty_Rock_Room: CCR_room
  1743.     sdesc = "In Dusty Rock Room"
  1744.     ldesc = {
  1745.         I(); "You are in a large room full of dusty rocks.  
  1746.         There is a big hole in the floor.  There are cracks 
  1747.         everywhere, and a passage leading east.";
  1748.     }
  1749.     east = In_Dirty_Passage
  1750.     passage = In_Dirty_Passage
  1751.     down = At_Complex_Junction
  1752.     hole = At_Complex_Junction
  1753.     floor = At_Complex_Junction
  1754.     bedquilt = In_Bedquilt
  1755. ;
  1756. DustyRocks: CCR_decoration
  1757.     sdesc = "dusty rocks"
  1758.     ldesc = "They're just rocks.  (Dusty ones, that is.)"
  1759.     location = In_Dusty_Rock_Room
  1760.     noun = 'rocks' 'boulders' 'stones' 'rock' 'boulder' 'stone'
  1761.     adjective = 'dusty' 'dirty'
  1762. ;
  1763.  
  1764. At_West_End_Of_Hall_Of_Mists: CCR_room
  1765.     sdesc = "At West End of Hall of Mists"
  1766.     ldesc = {
  1767.         I(); "You are at the west end of the hall of mists.  
  1768.         A low wide crawl continues west and another goes 
  1769.         north.  To the south is a little passage 6 feet off 
  1770.         the floor.";
  1771.     }
  1772.     south = Alike_Maze_1
  1773.     up = Alike_Maze_1
  1774.     passage = Alike_Maze_1
  1775.     climb = Alike_Maze_1
  1776.     east = West_Side_Of_Fissure
  1777.     west = At_East_End_Of_Long_Hall
  1778.     crawl = At_East_End_Of_Long_Hall
  1779.  
  1780.     north = {
  1781.         "You have crawled through a very low wide passage 
  1782.         parallel to and north of the hall of mists.\b";
  1783.  
  1784.         return West_Side_Of_Fissure;
  1785.     }    
  1786. ;
  1787.  
  1788. Alike_Maze_1: CCR_alike_maze_room
  1789.     up = At_West_End_Of_Hall_Of_Mists
  1790.     north = Alike_Maze_1
  1791.     east = Alike_Maze_2
  1792.     south = Alike_Maze_4
  1793.     west = Alike_Maze_11
  1794. ;
  1795.  
  1796. Alike_Maze_2: CCR_alike_maze_room
  1797.     west = Alike_Maze_1
  1798.     south = Alike_Maze_3
  1799.     east = Alike_Maze_4
  1800. ;
  1801.  
  1802. Alike_Maze_3: CCR_alike_maze_room
  1803.     east = Alike_Maze_2
  1804.     down = Dead_End_3
  1805.     south = Alike_Maze_6
  1806.     north = Dead_End_13
  1807. ;
  1808.  
  1809. Alike_Maze_4: CCR_alike_maze_room
  1810.     west = Alike_Maze_1
  1811.     north = Alike_Maze_2
  1812.     east = Dead_End_1
  1813.     south = Dead_End_2
  1814.     up = Alike_Maze_14
  1815.     down = Alike_Maze_14
  1816. ;
  1817.  
  1818. Dead_End_1: CCR_dead_end_room
  1819.     west = Alike_Maze_4
  1820.     out = Alike_Maze_4
  1821. ;
  1822.  
  1823. Dead_End_2: CCR_dead_end_room
  1824.     east = Alike_Maze_4
  1825.     out = Alike_Maze_4
  1826. ;
  1827.  
  1828. Dead_End_3: CCR_dead_end_room
  1829.     up = Alike_Maze_3
  1830.     out = Alike_Maze_3
  1831. ;
  1832.  
  1833. Alike_Maze_5: CCR_alike_maze_room
  1834.     east = Alike_Maze_6
  1835.     west = Alike_Maze_7
  1836. ;
  1837.  
  1838. Alike_Maze_6: CCR_alike_maze_room
  1839.     east = Alike_Maze_3
  1840.     west = Alike_Maze_5
  1841.     down = Alike_Maze_7
  1842.     south = Alike_Maze_8
  1843. ;
  1844.  
  1845. Alike_Maze_7: CCR_alike_maze_room
  1846.     west = Alike_Maze_5
  1847.     up = Alike_Maze_6
  1848.     east = Alike_Maze_8
  1849.     south = Alike_Maze_9
  1850. ;
  1851.  
  1852. Alike_Maze_8: CCR_alike_maze_room
  1853.     west = Alike_Maze_6
  1854.     east = Alike_Maze_7
  1855.     south = Alike_Maze_8
  1856.     up = Alike_Maze_9
  1857.     north = Alike_Maze_10
  1858.     down = Dead_End_12
  1859. ;
  1860.  
  1861. Alike_Maze_9: CCR_alike_maze_room
  1862.     west = Alike_Maze_7
  1863.     north = Alike_Maze_8
  1864.     south = Dead_End_4
  1865. ;
  1866.  
  1867. Dead_End_4: CCR_dead_end_room
  1868.     west = Alike_Maze_9
  1869.     out = Alike_Maze_9
  1870. ;
  1871.  
  1872. Alike_Maze_10: CCR_alike_maze_room
  1873.     west = Alike_Maze_8
  1874.     north = Alike_Maze_10
  1875.     down = Dead_End_5
  1876.     east = At_Brink_Of_Pit
  1877. ;
  1878.  
  1879. Dead_End_5: CCR_dead_end_room
  1880.     up = Alike_Maze_10
  1881.     out = Alike_Maze_10
  1882. ;
  1883.  
  1884. At_Brink_Of_Pit: CCR_room
  1885.     sdesc = "At Brink of Pit"
  1886.     ldesc = {
  1887.         I(); "You are on the brink of a thirty foot pit with 
  1888.         a massive orange column down one wall.  You could 
  1889.         climb down here but you could not get back up.  The 
  1890.         maze continues at this level.";
  1891.     }
  1892.     down = In_Bird_Chamber
  1893.     climb = In_Bird_Chamber
  1894.     west = Alike_Maze_10
  1895.     south = Dead_End_6
  1896.     north = Alike_Maze_12
  1897.     east = Alike_Maze_13
  1898. ;
  1899. OrangeColumn: CCR_decoration
  1900.     sdesc = "massive orange column"
  1901.     ldesc = "It looks like you could climb down it."
  1902.     noun = 'column'
  1903.     adjective = 'massive' 'orange' 'big' 'huge'
  1904.     location = At_Brink_Of_Pit
  1905.     
  1906.     verDoClimb(actor) = {}
  1907.     doClimb(actor) = { Me.travelTo(self.location.down); }
  1908. ;
  1909. ThirtyFootPit: CCR_decoration
  1910.     sdesc = "pit"
  1911.     ldesc = "You'll have to climb down to find out anything more..."
  1912.     noun = 'pit'
  1913.     adjective = 'thirty' 'foot' 'thirty-foot' '30-foot'
  1914.     location = At_Brink_Of_Pit
  1915.  
  1916.     verDoClimb(actor) = {}
  1917.     doClimb(actor) = { Me.travelTo(self.location.down); }
  1918.     verDoEnter(actor) = {}
  1919.     doEnter(actor) = { self.doClimb(actor); }
  1920. ;
  1921.  
  1922. Dead_End_6: CCR_dead_end_room
  1923.     east = At_Brink_Of_Pit
  1924.     out = At_Brink_Of_Pit
  1925. ;
  1926.  
  1927. At_East_End_Of_Long_Hall: CCR_room
  1928.     sdesc = "At East End of Long Hall"
  1929.     ldesc = {
  1930.         I(); "You are at the east end of a very long hall 
  1931.         apparently without side chambers.  To the east a low 
  1932.         wide crawl slants up.  To the north a round two foot 
  1933.         hole slants down.";
  1934.     }
  1935.     east = At_West_End_Of_Hall_Of_Mists
  1936.     up = At_West_End_Of_Hall_Of_Mists
  1937.     crawl = At_West_End_Of_Hall_Of_Mists
  1938.     west = At_West_End_Of_Long_Hall
  1939.     north = Crossover
  1940.     down = Crossover
  1941.     hole = Crossover
  1942. ;
  1943.  
  1944. At_West_End_Of_Long_Hall: CCR_room
  1945.     sdesc = "At West End of Long Hall"
  1946.     ldesc = {
  1947.         I(); "You are at the west end of a very long 
  1948.         featureless hall.  The hall joins up with a narrow 
  1949.         north/south passage.";
  1950.     }
  1951.     east = At_East_End_Of_Long_Hall
  1952.     north = Crossover
  1953.     south = Different_Maze_1
  1954. ;
  1955.  
  1956. Crossover: CCR_room
  1957.     sdesc = "N/S and E/W Crossover"
  1958.     ldesc = {
  1959.         I(); "You are at a crossover of a high N/S passage 
  1960.         and a low E/W one.";
  1961.     }
  1962.     west = At_East_End_Of_Long_Hall
  1963.     north = Dead_End_7
  1964.     east = In_West_Side_Chamber
  1965.     south = At_West_End_Of_Long_Hall
  1966. ;
  1967. TheCrossover: CCR_decoration
  1968.     sdesc = "crossover"
  1969.     ldesc = "You know as much as I do at this point."
  1970.     noun = 'crossover' 'over'
  1971.     adjective = 'cross'
  1972.     location = Crossover
  1973. ;
  1974.  
  1975. Dead_End_7: CCR_dead_end_room
  1976.     south = Crossover
  1977.     out = Crossover
  1978. ;
  1979.  
  1980. At_Complex_Junction: CCR_room
  1981.     sdesc = "At Complex Junction"
  1982.     ldesc = {
  1983.         I(); "You are at a complex junction.  A low hands and 
  1984.         knees passage from the north joins a higher crawl 
  1985.         from the east to make a walking passage going west.  
  1986.         There is also a large room above.  The air is damp 
  1987.         here.";
  1988.     }
  1989.     up = In_Dusty_Rock_Room
  1990.     climb = In_Dusty_Rock_Room
  1991.     toroom = In_Dusty_Rock_Room
  1992.     west = In_Bedquilt
  1993.     bedquilt = In_Bedquilt
  1994.     north = In_Shell_Room
  1995.     shell = In_Shell_Room
  1996.     east = In_Anteroom
  1997. ;
  1998.  
  1999. In_Bedquilt: CCR_room
  2000.     sdesc = "In Bedquilt"
  2001.     ldesc = {
  2002.         I(); "You are in bedquilt, a long east/west passage 
  2003.         with holes everywhere. To explore at random select 
  2004.         north, south, up, or down.";
  2005.     }
  2006.     east = At_Complex_Junction
  2007.     west = In_Swiss_Cheese_Room
  2008.     south = {
  2009.         if (rand(100) <= 80)
  2010.             return crawled_around.message;
  2011.         else
  2012.             return self.slab;
  2013.     }
  2014.     slab = In_Slab_Room
  2015.  
  2016.     up = {
  2017.         if (rand(100) <= 80)
  2018.             return crawled_around.message;
  2019.         else if (rand(100) <= 50)
  2020.             return In_Secret_N_S_Canyon_1;
  2021.         else
  2022.             return In_Dusty_Rock_Room;
  2023.     }
  2024.  
  2025.     north = {
  2026.         if (rand(100) <= 60)
  2027.             return crawled_around.message;
  2028.         else if (rand(100) <= 75)
  2029.             return In_Large_Low_Room;
  2030.         else
  2031.             return At_Junction_Of_Three_Secret_Canyons;
  2032.     }
  2033.  
  2034.     down = {
  2035.         if (rand(100) <= 80)
  2036.             return crawled_around.message;
  2037.         else
  2038.             return In_Anteroom;
  2039.     }
  2040.  
  2041.     //
  2042.     // Let the NPC's go everywhere out of here too.
  2043.     //
  2044.     NPCexit1 = In_Secret_N_S_Canyon_1
  2045.     NPCexit2 = In_Dusty_Rock_Room
  2046.     NPCexit3 = In_Large_Low_Room
  2047.     NPCexit4 = At_Junction_Of_Three_Secret_Canyons
  2048.     NPCexit5 = In_Anteroom
  2049. ;
  2050.  
  2051. In_Swiss_Cheese_Room: CCR_room
  2052.     sdesc = "In Swiss Cheese Room"
  2053.     ldesc = {
  2054.         I(); "You are in a room whose walls resemble swiss 
  2055.         cheese.  Obvious passages go west, east, ne, and nw.  
  2056.         Part of the room is occupied by a large bedrock 
  2057.         block.";
  2058.     }
  2059.     ne = In_Bedquilt
  2060.     west = At_East_End_Of_Twopit_Room
  2061.     south = {
  2062.         if (rand(100) <= 80)
  2063.             return crawled_around.message;
  2064.         else
  2065.             return self.canyon;
  2066.     }
  2067.     canyon = In_Tall_E_W_Canyon
  2068.  
  2069.     east = In_Soft_Room
  2070.     nw = {
  2071.         if (rand(100) <= 50)
  2072.             return crawled_around.message;
  2073.         else
  2074.             return self.oriental;
  2075.     }
  2076.     oriental = In_Oriental_Room
  2077. ;
  2078. BedrockBlock: CCR_decoration
  2079.     sdesc = "bedrock block"
  2080.     ldesc = "It's just a huge block."
  2081.     noun = 'block'
  2082.     adjective = 'bedrock' 'large'
  2083.     location = In_Swiss_Cheese_Room
  2084.  
  2085.     verDoLookunder(actor) = { "Surely you're joking."; }
  2086.     verDoMove(actor) = { self.verDoLookunder(actor); }
  2087.     verifyRemove(actor) = { self.verDoLookunder(actor); }
  2088. ;
  2089.  
  2090. At_East_End_Of_Twopit_Room: CCR_room
  2091.     sdesc = "At East End of Twopit Room"
  2092.     ldesc = {
  2093.         I(); "You are at the east end of the twopit room.  
  2094.         The floor here is littered with thin rock slabs, 
  2095.         which make it easy to descend the pits. There is a 
  2096.         path here bypassing the pits to connect passages from 
  2097.         east and west.  There are holes all over, but the 
  2098.         only big one is on the wall directly over the west 
  2099.         pit where you can't get to it.";
  2100.  
  2101.         if (PlantStickingUp.isIn(self)) {
  2102.             P(); I(); PlantStickingUp.ldesc;
  2103.         }
  2104.     }
  2105.     east = In_Swiss_Cheese_Room
  2106.     west = At_West_End_Of_Twopit_Room
  2107.     across = At_West_End_Of_Twopit_Room
  2108.     down = In_East_Pit
  2109.     pit = In_East_Pit
  2110. ;
  2111. Slabs: CCR_decoration
  2112.     sdesc = "thin rock slabs"
  2113.     adesc = { self.sdesc; }
  2114.     ldesc = "They almost form natural stairs down into the pit."
  2115.     noun = 'slabs' 'slab' 'rocks' 'stairs'
  2116.     adjective = 'thin' 'rock'
  2117.     location = At_East_End_Of_Twopit_Room
  2118.  
  2119.     verDoLookunder(actor) = { "Surely you're joking."; }
  2120.     verDoMove(actor) = { self.verDoLookunder(actor); }
  2121.     verifyRemove(actor) = { self.verDoLookunder(actor); }
  2122. ;
  2123.  
  2124. In_Slab_Room: CCR_room
  2125.     sdesc = "In Slab Room"
  2126.     ldesc = {
  2127.         I(); "You are in a large low circular chamber whose 
  2128.         floor is an immense slab fallen from the ceiling 
  2129.         (slab room).  East and west there once were large 
  2130.         passages, but they are now filled with boulders.  Low 
  2131.         small passages go north and south, and the south one 
  2132.         quickly bends west around the boulders.";
  2133.     }
  2134.     south = At_West_End_Of_Twopit_Room
  2135.     up = In_Secret_N_S_Canyon_0
  2136.     climb = In_Secret_N_S_Canyon_0
  2137.     north = In_Bedquilt
  2138. ;
  2139. Slab: CCR_decoration
  2140.     sdesc = "slab"
  2141.     ldesc = "It is now the floor here."
  2142.     noun = 'slab'
  2143.     adjective = 'immense'
  2144.     location = In_Slab_Room
  2145. ;
  2146. SlabBoulders: CCR_decoration
  2147.     sdesc = "boulders"
  2148.     ldesc = "They're just ordinary boulders."
  2149.     noun = 'boulder' 'boulders' 'rocks' 'stones'
  2150.     location = In_Slab_Room
  2151. ;
  2152.  
  2153. In_Secret_N_S_Canyon_0: CCR_room
  2154.     sdesc = "In Secret N/S Canyon"
  2155.     ldesc = {
  2156.         I(); "You are in a secret N/S canyon above a large 
  2157.         room.";
  2158.     }
  2159.     down = In_Slab_Room
  2160.     slab = In_Slab_Room
  2161.  
  2162.     south = {
  2163.         In_Secret_Canyon.enteredfrom := self;
  2164.         return In_Secret_Canyon;
  2165.     }
  2166.  
  2167.     north = In_Mirror_Canyon
  2168.     reservoir = At_Reservoir
  2169.  
  2170.     //
  2171.     // Let NPC's go into the secret canyon too, without regard to
  2172.     // whether the dragon's there.
  2173.     //
  2174.     NPCexit1 = In_Secret_Canyon
  2175. ;
  2176.  
  2177. In_Secret_N_S_Canyon_1: CCR_room
  2178.     sdesc = "In Secret N/S Canyon"
  2179.     ldesc = {
  2180.         I(); "You are in a secret N/S canyon above a sizable 
  2181.         passage.";
  2182.     }
  2183.     north = At_Junction_Of_Three_Secret_Canyons
  2184.     down = In_Bedquilt
  2185.     passage = In_Bedquilt
  2186.     south = Atop_Stalactite
  2187. ;
  2188.  
  2189. At_Junction_Of_Three_Secret_Canyons: CCR_room
  2190.     sdesc = "At Junction of Three Secret Canyons"
  2191.     ldesc = {
  2192.         I(); "You are in a secret canyon at a junction of 
  2193.         three canyons, bearing north, south, and se.  The 
  2194.         north one is as tall as the other two combined.";
  2195.     }
  2196.     se = In_Bedquilt
  2197.     south = In_Secret_N_S_Canyon_1
  2198.     north = At_Window_On_Pit_2
  2199. ;
  2200.  
  2201. In_Large_Low_Room: CCR_room
  2202.     sdesc = "In Large Low Room"
  2203.     ldesc = {
  2204.         I(); "You are in a large low room.  Crawls lead 
  2205.         north, se, and sw.";
  2206.     }
  2207.     bedquilt = In_Bedquilt
  2208.     sw = In_Sloping_Corridor
  2209.     north = Dead_End_Crawl
  2210.     se = In_Oriental_Room
  2211.     oriental = In_Oriental_Room
  2212. ;
  2213.  
  2214. Dead_End_Crawl: CCR_dead_end_room
  2215.     sdesc = "Dead End Crawl"
  2216.     ldesc = {
  2217.         I(); "This is a dead end crawl.";
  2218.     }
  2219.     south = In_Large_Low_Room
  2220.     crawl = In_Large_Low_Room
  2221.     out = In_Large_Low_Room
  2222. ;
  2223.  
  2224. In_Secret_E_W_Canyon: CCR_room
  2225.     sdesc = "In Secret E/W Canyon Above Tight Canyon"
  2226.     ldesc = {
  2227.         I(); "You are in a secret canyon which here runs E/W. 
  2228.         It crosses over a very tight canyon 15 feet below.  
  2229.         If you go down you may not be able to get back up.";
  2230.     }
  2231.     east = In_Hall_Of_Mt_King
  2232.     west = {
  2233.         In_Secret_Canyon.enteredfrom := self;
  2234.         return In_Secret_Canyon;
  2235.     }
  2236.     down = In_N_S_Canyon
  2237.  
  2238.     //
  2239.     // Let NPC's go into the secret canyon too, without regard to
  2240.     // whether the dragon's there.
  2241.     //
  2242.     NPCexit1 = In_Secret_Canyon
  2243. ;
  2244.  
  2245. In_N_S_Canyon: CCR_room
  2246.     sdesc = "In N/S Canyon"
  2247.     ldesc = {
  2248.         I(); "You are at a wide place in a very tight N/S 
  2249.         canyon.";
  2250.     }
  2251.     south = Canyon_Dead_End
  2252.     north = In_Tall_E_W_Canyon
  2253. ;
  2254.  
  2255. Canyon_Dead_End: CCR_dead_end_room
  2256.     sdesc = "Canyon Dead End"
  2257.     ldesc = {
  2258.         I(); "The canyon here becomes too tight to go further 
  2259.         south.";
  2260.     }
  2261.     north = In_N_S_Canyon
  2262. ;
  2263.  
  2264. In_Tall_E_W_Canyon: CCR_room
  2265.     sdesc = "In Tall E/W Canyon"
  2266.     ldesc = {
  2267.         I(); "You are in a tall E/W canyon.  A low tight 
  2268.         crawl goes 3 feet north and seems to open up.";
  2269.     }
  2270.     east = In_N_S_Canyon
  2271.     west = Dead_End_8
  2272.     north = In_Swiss_Cheese_Room
  2273.     crawl = In_Swiss_Cheese_Room
  2274. ;
  2275.  
  2276. Dead_End_8: CCR_dead_end_room
  2277.     ldesc = {
  2278.         I(); "The canyon runs into a mass of boulders -- dead 
  2279.         end.";
  2280.     }
  2281.     south = In_Tall_E_W_Canyon
  2282.     out = In_Tall_E_W_Canyon    // DMB: added
  2283. ;
  2284. MassOfBoulders: CCR_decoration
  2285.     sdesc = "mass of boulders"
  2286.     ldesc = "They just like ordinary boulders."
  2287.     noun = 'boulders' 'mass'
  2288.     location = Dead_End_8
  2289. ;
  2290.  
  2291. Alike_Maze_11: CCR_alike_maze_room
  2292.     north = Alike_Maze_1
  2293.     west = Alike_Maze_11
  2294.     south = Alike_Maze_11
  2295.     east = Dead_End_9
  2296. ;
  2297.  
  2298. Dead_End_9: CCR_dead_end_room
  2299.     west = Alike_Maze_11
  2300.     out = Alike_Maze_11
  2301. ;
  2302.  
  2303. Dead_End_10: CCR_dead_end_room
  2304.     south = Alike_Maze_3
  2305.     out = Alike_Maze_3
  2306. ;
  2307.  
  2308. Alike_Maze_12: CCR_alike_maze_room
  2309.     south = At_Brink_Of_Pit
  2310.     east = Alike_Maze_13
  2311.     west = Dead_End_11
  2312. ;
  2313.  
  2314. Alike_Maze_13: CCR_alike_maze_room
  2315.     north = At_Brink_Of_Pit
  2316.     west = Alike_Maze_12
  2317.     nw = Dead_End_13
  2318. ;
  2319.  
  2320. Dead_End_11: CCR_dead_end_room
  2321.     east = Alike_Maze_12
  2322.     out = Alike_Maze_12
  2323. ;
  2324.  
  2325. Dead_End_12: CCR_dead_end_room
  2326.     up = Alike_Maze_8
  2327.     out = Alike_Maze_8
  2328. ;
  2329.  
  2330. Alike_Maze_14: CCR_alike_maze_room
  2331.     up = Alike_Maze_4
  2332.     down = Alike_Maze_4
  2333. ;
  2334.  
  2335. In_Narrow_Corridor: CCR_room
  2336.     sdesc = "In Narrow Corridor"
  2337.     ldesc = {
  2338.         I(); "You are in a long, narrow corridor stretching 
  2339.         out of sight to the west.  At the eastern end is a 
  2340.         hole through which you can see a profusion of 
  2341.         leaves.";
  2342.     }
  2343.     down = In_West_Pit
  2344.     climb = In_West_Pit
  2345.     east = In_West_Pit
  2346.     jump = { return broken_neck.death; }
  2347.     west = In_Giant_Room
  2348.     giant = In_Giant_Room
  2349. ;
  2350. Leaves: CCR_decoration
  2351.     sdesc = "leaves"
  2352.     ldesc = {
  2353.         "The leaves appear to be attached to the beanstalk 
  2354.         you climbed to get here.";
  2355.     }
  2356.     location = In_Narrow_Corridor
  2357.     noun = 'leaf' 'leaves' 'plant' 'tree' 'stalk' 'beanstalk' 'profusion'
  2358. ;
  2359.  
  2360. At_Steep_Incline_Above_Large_Room: CCR_room
  2361.     sdesc = "At Steep Incline Above Large Room"
  2362.     ldesc = {
  2363.         I(); "You are at the top of a steep incline above a 
  2364.         large room.  You could climb down here, but you would 
  2365.         not be able to climb up.  There is a passage leading 
  2366.         back to the north.";
  2367.     }
  2368.     north = In_Cavern_With_Waterfall
  2369.     cavern = In_Cavern_With_Waterfall
  2370.     passage = In_Cavern_With_Waterfall
  2371.     down = In_Large_Low_Room
  2372.     climb = In_Large_Low_Room
  2373. ;
  2374.  
  2375. In_Giant_Room: CCR_room
  2376.     sdesc = "In Giant Room"
  2377.     ldesc = {
  2378.         I(); "You are in the giant room.  The ceiling here is 
  2379.         too high up for your lamp to show it.  Cavernous 
  2380.         passages lead east, north, and south.  On the west 
  2381.         wall is scrawled the inscription, \"Fee fie foe foo\" 
  2382.         [sic].";
  2383.     }
  2384.     south = In_Narrow_Corridor
  2385.     east = At_Recent_Cave_In
  2386.     north = In_Immense_N_S_Passage
  2387. ;
  2388. Inscription: CCR_decoration, readable
  2389.     sdesc = "scrawled inscription"
  2390.     ldesc = "It says, \"Fee fie foe foo [sic].\""
  2391.     noun = 'inscription' 'writing' 'scrawl'
  2392.     adjective = 'scrawled'
  2393.     location = In_Giant_Room
  2394. ;
  2395.  
  2396. At_Recent_Cave_In: CCR_room
  2397.     sdesc = "At Recent Cave-in"
  2398.     ldesc = {
  2399.         I(); "The passage here is blocked by a recent 
  2400.         cave-in.";
  2401.     }
  2402.     south = In_Giant_Room
  2403.     giant = In_Giant_Room
  2404.     out = In_Giant_Room
  2405. ;
  2406. CaveIn: CCR_decoration
  2407.     sdesc = "cave-in"
  2408.     ldesc = { self.location.ldesc; }
  2409.     noun = 'in' 'cave-in'
  2410.     adjective = 'cave'
  2411.     location = At_Recent_Cave_In
  2412. ;
  2413.  
  2414. In_Immense_N_S_Passage: CCR_room
  2415.     sdesc = "In Immense N/S Passage"
  2416.     ldesc = {
  2417.         I(); "You are at one end of an immense north/south 
  2418.         passage. ";
  2419.  
  2420.         if (not RustyDoor.isoiled)
  2421.              "The way north is barred by a massive, rusty, 
  2422.             iron door.";
  2423.         else
  2424.             "The way north leads through a massive, 
  2425.             rusty, iron door.";
  2426.     }
  2427.     south = In_Giant_Room
  2428.     giant = In_Giant_Room
  2429.     passage = In_Giant_Room
  2430.  
  2431.     enter = { return self.north; }
  2432.     cavern = { return self.north; }
  2433.     north = {
  2434.         if (RustyDoor.isoiled) {
  2435.             return In_Cavern_With_Waterfall;
  2436.         }
  2437.         else {
  2438.             "The door is extremely rusty and refuses to open.";
  2439.             return nil;
  2440.         }
  2441.     }
  2442.  
  2443.     //
  2444.     // Only let NPC's go through the door once it's open.
  2445.     //
  2446.     NPCexit1 = {
  2447.         if (RustyDoor.isoiled)
  2448.             return In_Cavern_With_Waterfall;
  2449.         else
  2450.             return nil;
  2451.     }
  2452. ;
  2453. RustyDoor: CCR_decoration
  2454.     isoiled = nil
  2455.  
  2456.     sdesc = "rusty door"
  2457.     ldesc = "It's just a big iron door."
  2458.     location = In_Immense_N_S_Passage
  2459.     noun = 'door' 'hinge' 'hinges'
  2460.     adjective = 'massive' 'rusty' 'iron'
  2461.  
  2462.     verDoOpen(actor) = {
  2463.         if (self.oiled)
  2464.             "It's already open.";
  2465.         else
  2466.             "The hinges are quite thoroughly rusted now 
  2467.             and won't budge.";
  2468.     }
  2469.     verDoClose(actor) = {
  2470.         if (self.oiled)
  2471.             "No problem there -- it already is.";
  2472.         else
  2473.             "With all the effort it took to get the door 
  2474.             open, I wouldn't suggest closing it again.";
  2475.     }
  2476.     verDoOil(actor) = {}
  2477.     doOil(actor) = {
  2478.         if (bottle.isIn(Me))
  2479.             bottle.doPourOn(actor, self);
  2480.         else
  2481.             "You have nothing to oil it with.";
  2482.     }
  2483. ;
  2484.  
  2485. In_Cavern_With_Waterfall: CCR_room
  2486.     sdesc = "In Cavern With Waterfall"
  2487.     ldesc = {
  2488.         I(); "You are in a magnificent cavern with a rushing 
  2489.         stream, which cascades over a sparkling waterfall 
  2490.         into a roaring whirlpool which disappears through a 
  2491.         hole in the floor.  Passages exit to the south and 
  2492.         west.";
  2493.     }
  2494.     south = In_Immense_N_S_Passage
  2495.     out = In_Immense_N_S_Passage
  2496.     giant = In_Giant_Room
  2497.     west = At_Steep_Incline_Above_Large_Room
  2498. ;
  2499. Waterfall: CCR_decoration
  2500.     sdesc = "waterfall"
  2501.     ldesc = "Wouldn't want to go down in in a barrel!"
  2502.     noun = 'waterfall' 'whirpool'
  2503.     adjective = 'sparkling' 'whirling'
  2504.     location = In_Cavern_With_Waterfall
  2505. ;
  2506.  
  2507. In_Soft_Room: CCR_room
  2508.     sdesc = "In Soft Room"
  2509.     ldesc = {
  2510.         I(); "You are in the soft room.  The walls are 
  2511.         covered with heavy curtains, the floor with a thick 
  2512.         pile carpet.  Moss covers the ceiling.";
  2513.     }
  2514.     west = In_Swiss_Cheese_Room
  2515.     out = In_Swiss_Cheese_Room
  2516. ;
  2517. Carpet: CCR_decoration
  2518.     sdesc = "carpet"
  2519.     ldesc = "The carpet is quite plush."
  2520.     noun = 'carpet' 'shag' 'pile'
  2521.     adjective = 'pile' 'heavy' 'thick'
  2522.     location = In_Soft_Room
  2523. ;
  2524. Curtains: CCR_decoration
  2525.     sdesc = "curtains"
  2526.     ldesc = "They seem to absorb sound very well."
  2527.     noun = 'curtain' 'curtains'
  2528.     adjective = 'heavy' 'thick'
  2529.     location = In_Soft_Room
  2530.  
  2531.     verifyRemove(actor) = { "Now don't go ripping up the place!"; }
  2532.     verDoLookbehind(actor) = {}
  2533.     doLookbehind(actor) = {
  2534.         "You don't find anything exciting behind the curtains.";
  2535.     }
  2536. ;
  2537. Moss: CCR_decoration
  2538.     sdesc = "moss"
  2539.     ldesc = "It just looks like your typical, everyday moss."
  2540.     noun = 'moss'
  2541.     adjective = 'typical' 'everyday'
  2542.     location = In_Soft_Room
  2543.  
  2544.     verifyRemove(actor) = { "It's too high up for you to reach."; }
  2545.     verDoEat(actor) = { "Eeeewwwww."; }
  2546. ;
  2547.  
  2548. In_Oriental_Room: CCR_room
  2549.     sdesc = "In Oriental Room"
  2550.     ldesc = {
  2551.         I(); "This is the oriental room.  Ancient oriental 
  2552.         cave drawings cover the walls.  A gently sloping 
  2553.         passage leads upward to the north, another passage 
  2554.         leads se, and a hands and knees crawl leads west.";
  2555.     }
  2556.     se = In_Swiss_Cheese_Room
  2557.     west = In_Large_Low_Room
  2558.     crawl = In_Large_Low_Room
  2559.     up = In_Misty_Cavern
  2560.     north = In_Misty_Cavern
  2561.     cavern = In_Misty_Cavern
  2562. ;
  2563. CaveDrawings: CCR_decoration
  2564.     sdesc = "ancient oriental drawings"
  2565.     ldesc = "They seem to depict people and animals."
  2566.     noun = 'paintings' 'drawings' 'art'
  2567.     adjective = 'cave' 'ancient' 'oriental'
  2568.     location = In_Oriental_Room
  2569. ;
  2570.  
  2571. In_Misty_Cavern: CCR_room
  2572.     sdesc = "In Misty Cavern"
  2573.     ldesc = {
  2574.         I(); "You are following a wide path around the outer 
  2575.         edge of a large cavern. Far below, through a heavy 
  2576.         white mist, strange splashing noises can be heard.  
  2577.         The mist rises up through a fissure in the ceiling.  
  2578.         The path exits to the south and west.";
  2579.     }
  2580.     south = In_Oriental_Room
  2581.     oriental = In_Oriental_Room
  2582.     west = In_Alcove
  2583. ;
  2584. CeilingFissure: CCR_decoration
  2585.     sdesc = "fissure"
  2586.     ldesc = "You can't really get close enough to examine it."
  2587.     noun = 'fissure'
  2588.     location = In_Misty_Cavern
  2589. ;
  2590.  
  2591. In_Alcove: CCR_room
  2592.     sdesc = "In Alcove"
  2593.     ldesc = {
  2594.         I(); "You are in an alcove.  A small northwest path seems 
  2595.         to widen after a short distance.  An extremely tight 
  2596.         tunnel leads east.  It looks like a very tight 
  2597.         squeeze.  An eerie light can be seen at the other 
  2598.         end.";
  2599.     }
  2600.     nw = In_Misty_Cavern
  2601.     cavern = In_Misty_Cavern
  2602.     passage = { return self.east; }
  2603.     east = {
  2604.         //
  2605.         // The player must be carrying only the emerald or
  2606.         // nothing at all to fit through the tight tunnel.
  2607.         //
  2608.         if (length(Me.contents) > 1)
  2609.             return wontfit.message;
  2610.         else if (length(Me.contents) = 1) {
  2611.             if (egg_sized_emerald.isIn(Me))
  2612.                 return In_Plover_Room;
  2613.             else
  2614.                 return wontfit.message;
  2615.         }
  2616.         else
  2617.             return In_Plover_Room;
  2618.     }
  2619.  
  2620.     //
  2621.     // Let NPC's go in the plover room regardless of what
  2622.     // they're carrying.  (Life's not fair in the Colossal Cave.)
  2623.     //
  2624.     NPCexit1 = In_Plover_Room
  2625. ;
  2626.  
  2627. In_Plover_Room: CCR_room, lightroom
  2628.     sdesc = "In Plover Room"
  2629.     ldesc = {
  2630.         I(); "You're in a small chamber lit by an eerie green 
  2631.         light.  An extremely narrow tunnel exits to the west. 
  2632.         A dark corridor leads northeast.";
  2633.     }
  2634.  
  2635.     passage = { return self.west; }
  2636.     out =  { return self.west; }
  2637.     west = {
  2638.         //
  2639.         // The player must be carrying only the emerald or
  2640.         // nothing at all to fit through the tight tunnel.
  2641.         //
  2642.         if (length(Me.contents) > 1)
  2643.             return wontfit.message;
  2644.         else if (length(Me.contents) = 1) {
  2645.             if (egg_sized_emerald.isIn(Me))
  2646.                 return In_Alcove;
  2647.             else
  2648.                 return wontfit.message;
  2649.         }
  2650.         else
  2651.             return In_Alcove;
  2652.     }
  2653.  
  2654.     ne = In_Dark_Room
  2655.     dark = In_Dark_Room
  2656.  
  2657.      plover = At_Y2
  2658.  
  2659.     //
  2660.     // Let NPC's leave the plover room regardless of what
  2661.     // they're carrying.  (Life's not fair in the Colossal Cave.)
  2662.     //
  2663.     NPCexit1 = In_Alcove
  2664. ;
  2665.  
  2666. In_Dark_Room: CCR_room
  2667.     sdesc = "In Dark Room"
  2668.     ldesc = {
  2669.         I(); "You're in the dark-room.  A corridor leading 
  2670.         south is the only exit."; P();
  2671.  
  2672.         I(); StoneTablet.ldesc; 
  2673.     }
  2674.     south = In_Plover_Room
  2675.     plover = In_Plover_Room
  2676.     out = In_Plover_Room
  2677. ;
  2678. StoneTablet: CCR_decoration
  2679.     sdesc = "stone tablet"
  2680.     ldesc = {
  2681.         "A massive stone tablet imbedded in the wall reads: 
  2682.         \"Congratulations on bringing light into the 
  2683.         dark-room!\"";
  2684.     }
  2685.     location = In_Dark_Room
  2686.     noun = 'tablet'
  2687.     adjective = 'massive' 'stone'
  2688. ;
  2689.  
  2690. In_Arched_Hall: CCR_room
  2691.     sdesc = "In Arched Hall"
  2692.     ldesc = {
  2693.         I(); "You are in an arched hall.  A coral passage 
  2694.         once continued up and east from here, but is now 
  2695.         blocked by debris.  The air smells of sea water.";
  2696.     }
  2697.     down = In_Shell_Room
  2698.     shell = In_Shell_Room
  2699.     out = In_Shell_Room
  2700. ;
  2701.  
  2702. In_Shell_Room: CCR_room
  2703.     sdesc = "In Shell Room"
  2704.     ldesc = {
  2705.         I(); "You're in a large room carved out of 
  2706.         sedimentary rock.  The floor and walls are littered 
  2707.         with bits of shells imbedded in the stone.  A shallow 
  2708.         passage proceeds downward, and a somewhat steeper one 
  2709.         leads up.  A low hands and knees passage enters from 
  2710.         the south.";
  2711.     }
  2712.     up = In_Arched_Hall
  2713.     hall = In_Arched_Hall
  2714.     down = In_Ragged_Corridor
  2715.     
  2716.     south = {
  2717.         if (giant_bivalve.isIn(Me)) {
  2718.             if (giant_bivalve.opened)
  2719.                 "You can't fit this five-foot oyster 
  2720.                 through that little passage!";
  2721.             else
  2722.                 "You can't fit this five-foot clam 
  2723.                 through that little passage!";
  2724.  
  2725.             return nil;
  2726.         }
  2727.         else 
  2728.             return At_Complex_Junction;
  2729.     }
  2730.  
  2731.     //
  2732.     // Let NPC's through.
  2733.     //
  2734.     NPCexit1 = At_Complex_Junction
  2735. ;
  2736.  
  2737. In_Ragged_Corridor: CCR_room
  2738.     sdesc = "In Ragged Corridor"
  2739.     ldesc = {
  2740.         I(); "You are in a long sloping corridor with ragged 
  2741.         sharp walls.";
  2742.     }
  2743.     up = In_Shell_Room
  2744.     shell = In_Shell_Room
  2745.     down = In_A_Cul_De_Sac
  2746. ;
  2747.  
  2748. In_A_Cul_De_Sac: CCR_room
  2749.     sdesc = "In a Cul-de-Sac"
  2750.     ldesc = {
  2751.         I(); "You are in a cul-de-sac about eight feet 
  2752.         across.";
  2753.     }
  2754.     up = In_Ragged_Corridor
  2755.     out = In_Ragged_Corridor
  2756.     shell = In_Shell_Room
  2757. ;
  2758.  
  2759. In_Anteroom: CCR_room
  2760.     sdesc = "In Anteroom"
  2761.     ldesc = {
  2762.         I(); "You are in an anteroom leading to a large 
  2763.         passage to the east.  Small passages go west and up.  
  2764.         The remnants of recent digging are evident."; P();
  2765.  
  2766.         I(); "A sign in midair here says \"Cave under 
  2767.         construction beyond this point. Proceed at own risk.  
  2768.         [Witt Construction Company]\"";
  2769.     }
  2770.     up = At_Complex_Junction
  2771.     west = In_Bedquilt
  2772.     east = At_Witts_End
  2773. ;
  2774. WittSign: CCR_decoration, readable
  2775.     sdesc = 'sign'
  2776.     ldesc = "It's hanging way above your head."
  2777.     readdesc = {
  2778.         "It says \"Cave under construction beyond this point. 
  2779.         Proceed at own risk.  [Witt Construction Company]\"";
  2780.     }
  2781.     noun = 'sign'
  2782.     adjective = 'hanging'
  2783.     location = In_Anteroom
  2784.  
  2785.     verifyRemove(actor) = { "No chance.  It's too far up."; }
  2786. ;
  2787.  
  2788. /*
  2789.  * This was off limits to NPC's in the original, but I don't see
  2790.  * any reason to keep that restriction since it seemed to be
  2791.  * related to some hackery in the way the movement worked.
  2792.  *
  2793.  * It could be argued that the pirate shouldn't show up in the mazes,
  2794.  * since his taking stuff away from the player could make mapping the
  2795.  * maze a real pain.
  2796.  */
  2797. Different_Maze_1: CCR_room
  2798.     sdesc = "Maze of Twisty Little Passages, All Different"
  2799.     ldesc = {
  2800.         I(); "You are in a maze of twisty little passages, 
  2801.         all different.";
  2802.     }
  2803.     south = Different_Maze_3
  2804.     sw = Different_Maze_4
  2805.     ne = Different_Maze_5
  2806.     se = Different_Maze_6
  2807.     up = Different_Maze_7
  2808.     nw = Different_Maze_8
  2809.     east = Different_Maze_9
  2810.     west = Different_Maze_10
  2811.     north = Different_Maze_11
  2812.     down = At_West_End_Of_Long_Hall
  2813. ;
  2814.  
  2815. At_Witts_End: CCR_room
  2816.     sdesc = "At Witt's End"
  2817.     ldesc = {
  2818.         I(); "You are at Witt's End.  Passages lead off in 
  2819.         *all* directions.";
  2820.     }
  2821.     east = {
  2822.         if (rand(100) <= 95) 
  2823.             return crawled_around.message;
  2824.         else
  2825.             return In_Anteroom;
  2826.     }
  2827.     west = {
  2828.         "You have crawled around in some little holes and 
  2829.         found your way blocked by a recent cave-in.  You are 
  2830.         now back in the main passage.";
  2831.  
  2832.         return nil;
  2833.     }
  2834.  
  2835.     north = { return self.east; }
  2836.     south = { return self.east; }
  2837.     ne = { return self.east; }
  2838.     se = { return self.east; }
  2839.     sw = { return self.east; }
  2840.     nw = { return self.east; }
  2841.     up = { return self.east; }
  2842.     down = { return self.east; }
  2843.  
  2844.     //
  2845.     // Let NPC's out of here with no trouble
  2846.     //
  2847.     NPCexit1 = In_Anteroom
  2848. ;
  2849.  
  2850. In_Mirror_Canyon: CCR_room
  2851.     sdesc = "In Mirror Canyon"
  2852.     ldesc = {
  2853.         I(); "You are in a north/south canyon about 25 feet 
  2854.         across.  The floor is covered by white mist seeping 
  2855.         in from the north.  The walls extend upward for well 
  2856.         over 100 feet.  Suspended from some unseen point far 
  2857.         above you, an enormous two-sided mirror is hanging 
  2858.         parallel to and midway between the canyon walls. ";
  2859.  
  2860.         "("; CanyonMirror.ldesc; ")"; 
  2861.  
  2862.         P(); I(); "A small window can be seen in either wall, 
  2863.         some fifty feet up.";
  2864.     }
  2865.     south = In_Secret_N_S_Canyon_0
  2866.     north = At_Reservoir
  2867.     reservior = At_Reservoir
  2868. ;
  2869. Mirror_1: CCR_decoration
  2870.     sdesc = "enormous mirror"
  2871.     ldesc = "It looks like an ordinary, albeit enormous, mirror."
  2872.     location = In_Mirror_Canyon
  2873.     noun = 'mirror'
  2874.     adjective = 'enormous' 'huge' 'big' 'large' 'suspended'
  2875.         'hanging' 'vanity' 'dwarvish'
  2876.  
  2877.     verDoBreak(actor) = { self.verifyRemove(actor); }
  2878.     verifyRemove(actor) = { "You can't reach it from here."; }
  2879. ;
  2880. CanyonMirror: CCR_decoration
  2881.     sdesc = "suspended mirror"
  2882.     ldesc = {
  2883.         "The mirror is obviously provided for the use of the 
  2884.         dwarves, who as you know, are extremely vain.";
  2885.     }
  2886.     noun = 'mirror'
  2887.     adjective = 'massive' 'hanging' 'suspended' 'dwarves\'' 'two-sided'
  2888.         'two' 'sided'
  2889.     location = In_Mirror_Canyon
  2890. ;
  2891.  
  2892. At_Window_On_Pit_2: CCR_room
  2893.     sdesc = "At Window on Pit"
  2894.     ldesc = {
  2895.         I(); "You're at a low window overlooking a huge pit, 
  2896.         which extends up out of sight.  A floor is 
  2897.         indistinctly visible over 50 feet below.  Traces of 
  2898.         white mist cover the floor of the pit, becoming 
  2899.         thicker to the left. Marks in the dust around the 
  2900.         window would seem to indicate that someone has been 
  2901.         here recently.  Directly across the pit from you and 
  2902.         25 feet away there is a similar window looking into a 
  2903.         lighted room.  A shadowy figure can be seen there 
  2904.         peering back at you.";
  2905.     }
  2906.     west = At_Junction_Of_Three_Secret_Canyons
  2907.     jump = { return broken_neck.death; }
  2908. ;
  2909.  
  2910. Atop_Stalactite: CCR_room
  2911.     sdesc = "Atop Stalactite"
  2912.     ldesc = {
  2913.         I(); "A large stalactite extends from the roof and 
  2914.         almost reaches the floor below.  You could climb down 
  2915.         it, and jump from it to the floor, but having done so 
  2916.         you would be unable to reach it to climb back up.";
  2917.     }
  2918.     north = In_Secret_N_S_Canyon_1
  2919.  
  2920.     jump = { return self.down; }
  2921.     climb = { return self.down; }
  2922.     down = {
  2923.         if (rand(100) <= 40)
  2924.             return Alike_Maze_6;
  2925.         else if (rand(100) <= 50)
  2926.             return Alike_Maze_9;
  2927.         else
  2928.             return Alike_Maze_4;
  2929.     }
  2930.  
  2931.     //
  2932.     // Let NPC's through to the maze
  2933.     //
  2934.     NPCexit1 = Alike_Maze_6
  2935.     NPCexit2 = Alike_Maze_9
  2936.     NPCexit3 = Alike_Maze_4
  2937. ;
  2938. Stalactite: CCR_decoration
  2939.     sdesc = "stalactite"
  2940.     ldesc = {
  2941.         "You could probably climb down it, but you can forget 
  2942.         coming back up.";
  2943.     }
  2944.     noun = 'stalactite' 'stalagmite' 'stalagtite'
  2945.     adjective = 'large'
  2946.     location = Atop_Stalactite
  2947.  
  2948.     verDoLookunder(actor) = { "Do get a grip on yourself."; }
  2949.     verDoMove(actor) = { self.verDoLookunder(actor); }
  2950.     verifyRemove(actor) = { self.verDoLookunder(actor); }
  2951. ;
  2952.  
  2953. Different_Maze_2: CCR_room
  2954.     sdesc = "Little Maze of Twisting Passages, All Different"
  2955.     ldesc = {
  2956.         I(); "You are in a little maze of twisting passages, 
  2957.         all different.";
  2958.     }
  2959.     sw = Different_Maze_3
  2960.     north = Different_Maze_4
  2961.     east = Different_Maze_5
  2962.     nw = Different_Maze_6
  2963.     se = Different_Maze_7
  2964.     ne = Different_Maze_8
  2965.     west = Different_Maze_9
  2966.     down = Different_Maze_10
  2967.     up = Different_Maze_11
  2968.     south = Dead_End_14
  2969. ;
  2970.  
  2971. At_Reservoir: CCR_room
  2972.     sdesc = "At Reservoir"
  2973.     ldesc = {
  2974.         I(); "You are at the edge of a large underground 
  2975.         reservoir.  An opaque cloud of white mist fills the 
  2976.         room and rises rapidly upward.  The lake is fed by a 
  2977.         stream, which tumbles out of a hole in the wall about 
  2978.         10 feet overhead and splashes noisily into the water 
  2979.         somewhere within the mist.  The only passage goes 
  2980.         back toward the south.";
  2981.     }
  2982.     south = In_Mirror_Canyon
  2983.     out = In_Mirror_Canyon
  2984.  
  2985.     //
  2986.     // The original had another exit, but the verb it was attached
  2987.     // to didn't exists.  I have no idea what was intended here...
  2988.     //
  2989.     // ??? = In_Mirror_Canyon
  2990. ;
  2991.  
  2992. //
  2993. // Here's where the pirate(s) keeps his treasure (as well as any loot
  2994. // he's swiped from the player).  Once the chest has been been found
  2995. // here, turn off the pirate(s) completely.  (This is how the original
  2996. // handled it, and it's thankfully merciful so I've kept it the same.)
  2997. //
  2998. Dead_End_13: CCR_dead_end_room, NoNPC
  2999.     se = Alike_Maze_13
  3000.     out = Alike_Maze_13    // DMB: added
  3001.  
  3002.     ldesc = "This is the pirate's dead end."
  3003.  
  3004.     enterRoom(actor) = {
  3005.         if (treasure_chest.isIn(Me) and not treasure_chest.spotted) {
  3006.             P(); I(); "You've found the pirate's treasure chest!";
  3007.             unnotify(Pirates, &move);
  3008.             treasure_chest.spotted := true;
  3009.             PirateMessage.moveInto(nil);
  3010.         }
  3011.  
  3012.         pass enterRoom;
  3013.     }
  3014. ;
  3015.  
  3016. On_Sw_Side_Of_Chasm: CCR_room
  3017.     sdesc = "On SW Side of Chasm"
  3018.     ldesc = {
  3019.         I(); "You are on one side of a large, deep chasm.  A 
  3020.         heavy white mist rising up from below obscures all 
  3021.         view of the far side.  A southwest path leads away 
  3022.         from the chasm into a winding corridor. ";
  3023.  
  3024.         RicketyBridge.xdesc;
  3025.  
  3026.         if (Troll.location = nil) {
  3027.             P(); I();
  3028.             "The troll is nowhere to be seen.";
  3029.         }
  3030.     }
  3031.     sw = In_Sloping_Corridor
  3032.  
  3033.     across = { return self.over; }
  3034.     cross = { return self.over; }
  3035.     ne = { return self.over; }
  3036.     over = {
  3037.         RicketyBridge.doCross(Me);
  3038.         return nil;
  3039.     }
  3040.     
  3041.     jump = {
  3042.         if (RicketyBridge.exists) {
  3043.             "I respectfully suggest you go across the 
  3044.             bridge instead of jumping.";
  3045.  
  3046.             return nil;
  3047.         }
  3048.         else
  3049.             return didnt_make_it.death;
  3050.     }
  3051.  
  3052.     //
  3053.     // No NPC exits because we don't want the pirate to be able
  3054.     // to go across the bridge and steal the player's return toll.
  3055.     // (All rooms on the other side of the bridge are off limits
  3056.     // to NPC's.)
  3057.     //
  3058.     // It would be OK for dwarves to show up over there, except
  3059.     // that they might run into the bear, a situation for which we don't
  3060.     // have any code.  (This is how the original was as well.)
  3061.     //
  3062. ;
  3063. RicketyBridge: CCR_decoration
  3064.     exists = true
  3065.  
  3066.     sdesc = "rickety bridge"
  3067.     ldesc = "It just looks like an ordinary, but unstable, bridge."
  3068.  
  3069.     xdesc = {
  3070.         if (self.exists) {
  3071.             "A rickety wooden bridge extends across the 
  3072.             chasm, vanishing into the mist."; P();
  3073.  
  3074.             I(); "A sign posted on the bridge reads, 
  3075.             \"Stop! Pay troll!\"";
  3076.         }
  3077.         else {
  3078.             "The wreckage of a bridge (and a dead bear) 
  3079.             can be seen at the bottom of the chasm.";
  3080.         }
  3081.     }
  3082.  
  3083.     noun = 'bridge'
  3084.     adjective = 'rickety' 'unstable' 'wobbly' 'rope'
  3085.  
  3086.     locationOK = true    // tell compiler OK for location to be method
  3087.     location = {
  3088.         if (self.exists) {
  3089.             if (Me.isIn(On_Sw_Side_Of_Chasm))
  3090.                 return On_Sw_Side_Of_Chasm;
  3091.             else
  3092.                 return On_Ne_Side_Of_Chasm;
  3093.         }
  3094.         else
  3095.             return nil;
  3096.     }
  3097.  
  3098.     verDoCross(actor) = {}
  3099.     doCross(actor) = {
  3100.         if (self.exists) {
  3101.             if (Troll.ispaid or Troll.location = nil)
  3102.                 self.cross;
  3103.             else {
  3104.                 if (Troll.isIn(self.location)) {
  3105.                     "The troll refuses to let you 
  3106.                     cross.";
  3107.                 }
  3108.                 else {
  3109.                     "The troll steps out from 
  3110.                     beneath the bridge and blocks 
  3111.                     your way.";
  3112.  
  3113.                     Troll.moveInto(self.location);
  3114.                 }
  3115.             }
  3116.         }
  3117.         else
  3118.             "There is no longer any way across the chasm.";
  3119.     }
  3120.  
  3121.     cross = {
  3122.         if (Bear.isfollowing) {
  3123.             "Just as you reach the other side, the bridge 
  3124.             buckles beneath the weight of the bear, which 
  3125.             was still following you around.  You scrabble 
  3126.             desperately for support, but as the bridge 
  3127.             collapses you stumble back and fall into the 
  3128.             chasm.";
  3129.  
  3130.             // Get rid of the bridge in case the
  3131.             // player gets reincarnated and
  3132.             // continues the game.
  3133.             self.exists := nil;
  3134.  
  3135.             // No more bear!
  3136.             Bear.exists := nil;
  3137.  
  3138.             die();
  3139.         }
  3140.         else if (Me.isIn(On_Sw_Side_Of_Chasm)) {
  3141.             Troll.ispaid := nil;
  3142.             Me.travelTo(On_Ne_Side_Of_Chasm);
  3143.         }
  3144.         else {
  3145.             Troll.ispaid := nil;
  3146.             Me.travelTo(On_Sw_Side_Of_Chasm);
  3147.         }
  3148.     }
  3149. ;
  3150. Troll: Actor
  3151.     ispaid = nil
  3152.  
  3153.     sdesc = "burly troll"
  3154.     ldesc = {
  3155.         "Trolls are close relatives with rocks and have skin 
  3156.         as tough as that of a rhinoceros.";
  3157.     }
  3158.  
  3159.     actorDesc = {
  3160.         P(); I();
  3161.         "A burly troll stands by the bridge and insists you 
  3162.         throw him a treasure before you may cross.";
  3163.     }
  3164.  
  3165.     noun = 'troll'
  3166.     adjective = 'burly'
  3167.  
  3168.     location = On_Sw_Side_Of_Chasm
  3169.  
  3170.     verDoKick(actor) = {}
  3171.     doKick(actor) = {
  3172.         "The troll laughs alound at your pitiful attempt
  3173.         to injure him.";
  3174.     }
  3175.  
  3176.     verDoAttack(actor) = {
  3177.         "The troll fends off your blows effortlessly.";
  3178.     }
  3179.     verDoAttackWith(actor, io) = {}
  3180.     doAttackWith(actor, io) = {
  3181.         //
  3182.         // If the player throws the axe at the troll,
  3183.         // he just catches it.
  3184.         //
  3185.         if (io = axe)
  3186.             self.ioGiveTo(actor, io);
  3187.         else
  3188.             self.verDoAttack(actor);
  3189.     }
  3190.  
  3191.     verIoGiveTo(actor) = {}
  3192.     ioGiveTo(actor, dobj) = {
  3193.         if (dobj.istreasure) {
  3194.             "The troll catches your treasure and scurries 
  3195.             away out of sight.";
  3196.  
  3197.             dobj.moveInto(nil);
  3198.             self.ispaid := true;
  3199.         }
  3200.         else if( dobj = tasty_food) {
  3201.             self.doFeed(Me);
  3202.         }
  3203.         else {
  3204.             "The troll deftly catches "; dobj.thedesc;
  3205.             ", examines it carefully, and tosses it back, 
  3206.             declaring, \"Good workmanship, but it's not 
  3207.             valuable enough.\"";
  3208.         }
  3209.     }
  3210.  
  3211.     verIoThrowAt(actor) = { self.verIoGiveTo(actor); }
  3212.     ioThrowAt(actor, dobj) = { self.ioGiveTo(actor, dobj); }
  3213.     verIoThrowTo(actor) = { self.verIoGiveTo(actor); }
  3214.     ioThrowTo(actor, dobj) = { self.ioGiveTo(actor, dobj); }
  3215.  
  3216.     verDoFeed(actor) = {}
  3217.     doFeed(actor) = {
  3218.         if (tasty_food.isIn(Me)) {
  3219.             "Gluttony is not of the troll's vices. 
  3220.             Avarice, however, is.";
  3221.         }
  3222.         else {
  3223.             "You have nothing the troll wants to eat.";
  3224.         }
  3225.     }
  3226. ;
  3227.  
  3228. In_Sloping_Corridor: CCR_room
  3229.     sdesc = "In Sloping Corridor"
  3230.     ldesc = {
  3231.         I(); "You are in a long winding corridor sloping out 
  3232.         of sight in both directions.";
  3233.     }
  3234.     down = In_Large_Low_Room
  3235.     up = On_Sw_Side_Of_Chasm
  3236. ;
  3237.  
  3238. In_Secret_Canyon: CCR_room
  3239.     enteredfrom = nil
  3240.  
  3241.     sdesc = "In Secret Canyon"
  3242.     ldesc = {
  3243.         I(); "You are in a secret canyon which exits to the 
  3244.         north and east."; P();
  3245.  
  3246.         I();
  3247.         if (Dragon.isIn(self))
  3248.             "A huge green fierce dragon bars the way!";
  3249.         else
  3250.             DragonCorpse.ldesc;
  3251.     }
  3252.     north = {
  3253.         if (self.enteredfrom = In_Secret_N_S_Canyon_0) {
  3254.             return self.enteredfrom;
  3255.         }
  3256.         else {
  3257.             if (self.dragoncheck)
  3258.                 return In_Secret_N_S_Canyon_0;
  3259.             else
  3260.                 return nil;
  3261.         }
  3262.     }
  3263.     east = {
  3264.         if (self.enteredfrom = In_Secret_E_W_Canyon) {
  3265.             return self.enteredfrom;
  3266.         }
  3267.         else {
  3268.             if (self.dragoncheck)
  3269.                 return In_Secret_E_W_Canyon;
  3270.             else
  3271.                 return nil;
  3272.         }
  3273.     }
  3274.  
  3275.     forwards = {
  3276.         if (self.enteredfrom = In_Secret_N_S_Canyon_0)
  3277.             return self.east;
  3278.         else
  3279.             return self.north;
  3280.     }
  3281.     out = {
  3282.         if (self.enteredfrom = In_Secret_N_S_Canyon_0)
  3283.             return self.north;
  3284.         else
  3285.             return self.east;
  3286.     }
  3287.  
  3288.     dragoncheck = {
  3289.         if (Dragon.isIn(self)) {
  3290.             "The dragon looks rather nasty.  You'd best 
  3291.             not try to get by.";
  3292.  
  3293.             return nil;
  3294.         }
  3295.         else
  3296.             return true;
  3297.     }
  3298.  
  3299.     //
  3300.     // Let NPC's by the dragon without incident (they're all on
  3301.     // the same team, after all).
  3302.     //
  3303.     NPCexit1 = In_Secret_N_S_Canyon_0
  3304.     NPCexit2 = In_Secret_E_W_Canyon
  3305. ;
  3306. Dragon: CCR_decoration
  3307.     rhetoricalturn = -999    // hack -- see yesVerb in ccr-verbs.t
  3308.     
  3309.     sdesc = "dragon"
  3310.     ldesc = "I wouldn't mess with it if I were you."
  3311.     location = In_Secret_Canyon
  3312.     noun = 'dragon' 'monster' 'beast' 'lizard'
  3313.     adjective = 'huge' 'green' 'fierce' 'scaly' 'giant' 'ferocious'
  3314.  
  3315.     verDoKick(actor) = {}
  3316.     doKick(actor) = {
  3317.         "Right idea, wrong limb.";
  3318.     }
  3319.  
  3320.     verDoAttack(actor) = {}
  3321.     doAttack(actor) = {
  3322.         "With what?  Your bare hands?";
  3323.         self.rhetoricalturn := global.turnsofar;
  3324.     }
  3325.     verDoAttackWith(actor, io) = {}
  3326.     doAttackWith(actor, io) = {
  3327.         if (io = axe)
  3328.             "The axe bounces harmlessly off the dragon's 
  3329.             thick scales.";
  3330.         else if (io = Hands) {
  3331.             self.kill;
  3332.         }
  3333.         else {
  3334.             "You'd probably be better off using your
  3335.             bare hands than that thing!";
  3336.         }
  3337.     }
  3338.  
  3339.     verIoThrowAt(actor) = { self.verIoGiveTo(actor); }
  3340.     ioThrowAt(actor, dobj) = {
  3341.         if (dobj = axe)
  3342.             self.doAttackWith(actor, dobj);
  3343.         else
  3344.             self.ioGiveTo(actor, dobj);
  3345.     }
  3346.     verIoThrowTo(actor) = { self.verIoGiveTo(actor); }
  3347.     ioThrowTo(actor, dobj) = {
  3348.         if (dobj = axe)
  3349.             self.doAttackWith(actor, dobj);
  3350.         else
  3351.             self.ioGiveTo(actor, dobj);
  3352.     }
  3353.  
  3354.     kill = {
  3355.         "Congratulations!  You have just vanquished a 
  3356.         dragon with your bare hands!  (Unbelievable, 
  3357.         isn't it?)";
  3358.  
  3359.         DragonCorpse.moveInto(self.location);
  3360.         self.moveInto(nil);
  3361.     }
  3362. ;
  3363. DragonCorpse: CCR_decoration
  3364.     sdesc = "dragon"
  3365.     ldesc = {
  3366.         "The body of a huge green dead dragon is lying off to 
  3367.         one side.";
  3368.     }
  3369.     location = nil
  3370.     noun = 'dragon' 'corpse'
  3371.     adjective = 'dead'
  3372.     
  3373.     verDoKick(actor) = { "You've already done enough damage!"; }
  3374.     verDoAttack(actor) = { self.verDoKick(actor); }
  3375.     verDoAttackWith(actor, io) = { self.verDoKick(actor); }
  3376. ;
  3377.  
  3378. On_Ne_Side_Of_Chasm: CCR_room, NoNPC
  3379.     sdesc = "On NE Side of Chasm"
  3380.     ldesc = {
  3381.         I(); "You are on the far side of the chasm.  A 
  3382.         northeast path leads away from the chasm on this 
  3383.         side. ";
  3384.  
  3385.         RicketyBridge.xdesc;
  3386.  
  3387.         if (Troll.location = nil) {
  3388.             P(); I();
  3389.             "The troll is nowhere to be seen.";
  3390.         }
  3391.     }
  3392.     ne = In_Corridor
  3393.  
  3394.     across = { return self.over; }
  3395.     cross = { return self.over; }
  3396.     sw = { return self.over; }
  3397.     over = {
  3398.         RicketyBridge.doCross(Me);
  3399.         return nil;
  3400.     }
  3401.     
  3402.     jump = {
  3403.         if (RicketyBridge.exists) {
  3404.             "I respectfully suggest you go across the 
  3405.             bridge instead of jumping.";
  3406.  
  3407.             return nil;
  3408.         }
  3409.         else
  3410.             return didnt_make_it.death;
  3411.     }
  3412.  
  3413.     fork = At_Fork_In_Path
  3414.     view = At_Breath_Taking_View
  3415.     barren = In_Front_Of_Barren_Room
  3416. ;
  3417.  
  3418. In_Corridor: CCR_room, NoNPC
  3419.     sdesc = "In Corridor"
  3420.     ldesc = {
  3421.         I(); "You're in a long east/west corridor.  A faint 
  3422.         rumbling noise can be heard in the distance.";
  3423.     }
  3424.     west = On_Ne_Side_Of_Chasm
  3425.     east = At_Fork_In_Path
  3426.     fork = At_Fork_In_Path
  3427.     view = At_Breath_Taking_View
  3428.     barren = In_Front_Of_Barren_Room
  3429. ;
  3430.  
  3431. At_Fork_In_Path: CCR_room, NoNPC
  3432.     sdesc = "At Fork in Path"
  3433.     ldesc = {
  3434.         I(); "The path forks here.  The left fork leads 
  3435.         northeast.  A dull rumbling seems to get louder in 
  3436.         that direction.  The right fork leads southeast down 
  3437.         a gentle slope.  The main corridor enters from the 
  3438.         west.";
  3439.     }
  3440.     west = In_Corridor
  3441.     ne = At_Junction_With_Warm_Walls
  3442.     left = At_Junction_With_Warm_Walls
  3443.     se = In_Limestone_Passage
  3444.     right = In_Limestone_Passage
  3445.     down = In_Limestone_Passage
  3446.     view = At_Breath_Taking_View
  3447.     barren = In_Front_Of_Barren_Room
  3448. ;
  3449.  
  3450. At_Junction_With_Warm_Walls: CCR_room, NoNPC
  3451.     sdesc = "At Junction With Warm Walls"
  3452.     ldesc = {
  3453.         I(); "The walls are quite warm here.  From the north 
  3454.         can be heard a steady roar, so loud that the entire 
  3455.         cave seems to be trembling.  Another passage leads 
  3456.         south, and a low crawl goes east.";
  3457.     }
  3458.     south = At_Fork_In_Path
  3459.     fork = At_Fork_In_Path
  3460.     north = At_Breath_Taking_View
  3461.     view = At_Breath_Taking_View
  3462.     east = In_Chamber_Of_Boulders
  3463.     crawl = In_Chamber_Of_Boulders
  3464. ;
  3465.  
  3466. At_Breath_Taking_View: CCR_room, NoNPC
  3467.     sdesc = "At Breath-Taking View"
  3468.     ldesc = {
  3469.         I(); "You are on the edge of a breath-taking view. Far 
  3470.         below you is an active volcano, from which great 
  3471.         gouts of molten lava come surging out, cascading back 
  3472.         down into the depths.  The glowing rock fills the 
  3473.         farthest reaches of the cavern with a blood-red 
  3474.         glare, giving everything an eerie, macabre 
  3475.         appearance. The air is filled with flickering sparks 
  3476.         of ash and a heavy smell of brimstone.  The walls are 
  3477.         hot to the touch, and the thundering of the volcano 
  3478.         drowns out all other sounds.  Embedded in the jagged 
  3479.         roof far overhead are myriad twisted formations 
  3480.         composed of pure white alabaster, which scatter the 
  3481.         murky light into sinister apparitions upon the walls. 
  3482.         To one side is a deep gorge, filled with a bizarre 
  3483.         chaos of tortured rock which seems to have been 
  3484.         crafted by the devil himself.  An immense river of 
  3485.         fire crashes out from the depths of the volcano, 
  3486.         burns its way through the gorge, and plummets into a 
  3487.         bottomless pit far off to your left.  To the right, 
  3488.         an immense geyser of blistering steam erupts 
  3489.         continuously from a barren island in the center of a 
  3490.         sulfurous lake, which bubbles ominously.  The far 
  3491.         right wall is aflame with an incandescence of its 
  3492.         own, which lends an additional infernal splendor to 
  3493.         the already hellish scene.  A dark, forboding passage 
  3494.         exits to the south.";
  3495.     }
  3496.     south = At_Junction_With_Warm_Walls
  3497.     passage = At_Junction_With_Warm_Walls
  3498.     out = At_Junction_With_Warm_Walls
  3499.     fork = At_Fork_In_Path
  3500.     jump = { return self.down; }
  3501.     down = {
  3502.         "Don't be ridiculous!";
  3503.         return nil;
  3504.     }
  3505. ;
  3506. Volcano: decoration
  3507.     sdesc = "active volcano"
  3508.     ldesc = {
  3509.         "Great gouts of molten lava come surging out of the 
  3510.         volvano and go cascading back down into the depths.  
  3511.         The glowing rock fills the farthest reaches of the 
  3512.         cavern with a blood-red glare, giving everything an 
  3513.         eerie, macabre appearance.";
  3514.     }
  3515.     location = At_Breath_Taking_View
  3516.     noun = 'volcano' 'rock'
  3517.     adjective = 'active' 'glowing' 'blood' 'blood-red' 'red' 'eerie'
  3518.         'macabre'
  3519. ;
  3520. Sparks: decoration
  3521.     sdesc = "sparks of ash"
  3522.     adesc = { self.sdesc; }
  3523.     ldesc = {
  3524.         "The sparks too far away for you to get a good look at 
  3525.         them.";
  3526.     }
  3527.     location = At_Breath_Taking_View
  3528.     noun = 'spark' 'sparks' 'ash' 'air'
  3529.     adjective = 'flickering'
  3530. ;
  3531. JaggedRoof: decoration
  3532.     sdesc = "jagged roof"
  3533.     ldesc = {
  3534.         "Embedded in the jagged roof far overhead are myriad 
  3535.         twisted formations composed of pure white alabaster, 
  3536.         which scatter the murky light into sinister 
  3537.         apparitions upon the walls.";
  3538.     }
  3539.     location = At_Breath_Taking_View
  3540.     noun = 'roof' 'formations' 'light' 'apparaitions'
  3541.     adjective = 'jagged' 'twsited' 'murky' 'sinister'
  3542. ;
  3543. DeepGorge: decoration
  3544.     sdesc = "deep gorge"
  3545.     ldesc = {
  3546.         "The gorge is filled with a bizarre chaos of tortured 
  3547.         rock which seems to have been crafted by the devil 
  3548.         himself.";
  3549.     }
  3550.     location = At_Breath_Taking_View
  3551.     noun = 'gorge' 'chaos' 'rock'
  3552.     adjective = 'deep' 'bizarre' 'tortured'
  3553. ;
  3554. RiverOfFire: decoration
  3555.     sdesc = "river of fire"
  3556.     ldesc = {
  3557.         "The river of fire crashes out from the depths of the 
  3558.         volcano, burns its way through the gorge, and 
  3559.         plummets into a bottomless pit far off to your 
  3560.         left.";
  3561.     }
  3562.     location = At_Breath_Taking_View
  3563.     noun = 'river' 'fire' 'depth' 'pit'
  3564.     adjective = 'fire' 'firey' 'bottomless'
  3565. ;
  3566. Geyser: decoration
  3567.     sdesc = "immense geyser"
  3568.     ldesc = {
  3569.         "The geyser of blistering steam erupts continuously 
  3570.         from a barren island in the center of a sulfurous 
  3571.         lake, which bubbles ominously.";
  3572.     }
  3573.     location = At_Breath_Taking_View
  3574.     noun = 'geyser' 'steam' 'island' 'lake'
  3575.     adjective = 'immense' 'blistering' 'barren' 'sulfrous'
  3576.         'sulferous' 'sulpherous' 'sulphrous' 'bubbling'
  3577. ;
  3578.  
  3579. In_Chamber_Of_Boulders: CCR_room, NoNPC
  3580.     sdesc = "In Chamber of Boulders"
  3581.     ldesc = {
  3582.         I(); "You are in a small chamber filled with large 
  3583.         boulders.  The walls are very warm, causing the air 
  3584.         in the room to be almost stifling from the heat.  The 
  3585.         only exit is a crawl heading west, through which is 
  3586.         coming a low rumbling.";
  3587.     }
  3588.     west = At_Junction_With_Warm_Walls
  3589.     out = At_Junction_With_Warm_Walls
  3590.     crawl = At_Junction_With_Warm_Walls
  3591.     fork = At_Fork_In_Path
  3592.     view = At_Breath_Taking_View
  3593. ;
  3594. ChamberBoulders: CCR_decoration
  3595.     sdesc = "boulders"
  3596.     ldesc = "They're just ordinary boulders.  They're warm."
  3597.     noun = 'boulder' 'boulders' 'rocks' 'stones'
  3598.     location = In_Chamber_Of_Boulders
  3599. ;
  3600.  
  3601. In_Limestone_Passage: CCR_room, NoNPC
  3602.     sdesc = "In Limestone Passage"
  3603.     ldesc = {
  3604.         I(); "You are walking along a gently sloping 
  3605.         north/south passage lined with oddly shaped limestone 
  3606.         formations.";
  3607.     }
  3608.     north = At_Fork_In_Path
  3609.     up = At_Fork_In_Path
  3610.     fork = At_Fork_In_Path
  3611.     south = In_Front_Of_Barren_Room
  3612.     down = In_Front_Of_Barren_Room
  3613.     barren = In_Front_Of_Barren_Room
  3614.     view = At_Breath_Taking_View
  3615. ;
  3616. LimestoneFormations: decoration
  3617.     sdesc = "limestone formations"
  3618.     ldesc = {
  3619.         "Every now and then a particularly strange shape
  3620.         catches your eye.";
  3621.     }
  3622.     location = In_Limestone_Passage
  3623.     noun = 'formations' 'shape' 'shapes'
  3624.     adjective = 'lime' 'limestone' 'stone' 'oddly' 'shaped'
  3625.         'oddly-shaped'
  3626. ;
  3627.  
  3628.  
  3629. In_Front_Of_Barren_Room: CCR_room, NoNPC
  3630.     sdesc = "In Front of Barren Room"
  3631.     ldesc = {
  3632.         I(); "You are standing at the entrance to a large, 
  3633.         barren room.  A sign posted above the entrance reads: 
  3634.         \"Caution!  Bear in room!\"";
  3635.     }
  3636.     west = In_Limestone_Passage
  3637.     up = In_Limestone_Passage
  3638.     fork = At_Fork_In_Path
  3639.     east = In_Barren_Room
  3640.     in = In_Barren_Room
  3641.     barren = In_Barren_Room
  3642.     enter = In_Barren_Room
  3643.     view = At_Breath_Taking_View
  3644. ;
  3645. BarrenSign: CCR_decoration, readable
  3646.     sdesc = "sign"
  3647.     ldesc = { self.readdesc; }
  3648.     readdesc = {
  3649.         "The sign reads, \"Caution!  Bear in room!\"";
  3650.     }
  3651.  
  3652.     noun = 'sign'
  3653.     adjective = 'barren' 'room'
  3654.  
  3655.     location = In_Front_Of_Barren_Room
  3656. ;
  3657.  
  3658. In_Barren_Room: CCR_room, NoNPC
  3659.     sdesc = "In Barren Room"
  3660.     ldesc = {
  3661.         I(); "You are inside a barren room.  The center of 
  3662.         the room is completely empty except for some dust.  
  3663.         Marks in the dust lead away toward the far end of the 
  3664.         room.  The only exit is the way you came in.";
  3665.     }
  3666.     west = In_Front_Of_Barren_Room
  3667.     out = In_Front_Of_Barren_Room
  3668.     fork = At_Fork_In_Path
  3669.     view = At_Breath_Taking_View
  3670. ;
  3671. Dust: CCR_decoration
  3672.     sdesc = "dust"
  3673.     ldesc = { "It just looks like ordinary dust."; }
  3674.     location = In_Barren_Room
  3675.     noun = 'dust' 'marks'
  3676. ;
  3677. Bear: Actor
  3678.     rhetoricalturn = -999    // hack -- see yesVerb in ccr-verbs.t
  3679.  
  3680.     exists = true
  3681.  
  3682.     istame = nil        // has the bear been fed?
  3683.     isfollowing = nil    // is the bear following the player?
  3684.     wasreleased = nil    // has the bear been unchained yet?
  3685.  
  3686.     sdesc = "large bear"
  3687.     ldesc = {
  3688.         "The bear is extremely large, ";
  3689.  
  3690.         if (self.istame)
  3691.             "but appears to be friendly.";
  3692.         else
  3693.             "and seems quite ferocious!";
  3694.     }
  3695.  
  3696.     //
  3697.     // Can't use actorDesc because we our location is a method,
  3698.     // so we're not ever really contained in a room.  We've
  3699.     // hacked adv.t to make this work by checking the bear
  3700.     // explicitly.
  3701.     //
  3702.     actorDesc = {
  3703.         if (self.isIn(Me.location)) {
  3704.             P(); I();
  3705.  
  3706.             if (self.isfollowing) {
  3707.                 "You are being followed by a very 
  3708.                 large, tame bear.";
  3709.             }
  3710.             else if (self.istame) {
  3711.                 if (not self.wasreleased and
  3712.                 self.isIn(In_Barren_Room)) {
  3713.  
  3714.                     "There is a gentle cave bear 
  3715.                     sitting placidly in one 
  3716.                     corner.";
  3717.                 }
  3718.                 else
  3719.                     "There is a contented-looking 
  3720.                     bear wandering about 
  3721.                     nearby.";
  3722.             }
  3723.             else {
  3724.                 "There is a ferocious cave bear 
  3725.                 eyeing you from the far end of the 
  3726.                 room!";
  3727.             }
  3728.         }
  3729.     }
  3730.  
  3731.     noun = 'bear'
  3732.     adjective = 'large' 'tame' 'ferocious' 'cave'
  3733.  
  3734.     locationOK = true    // tell compiler OK for location to be method
  3735.     location = {
  3736.         if (self.exists) {
  3737.             if (self.isfollowing)
  3738.                 return Me.location;
  3739.             else
  3740.                 return In_Barren_Room;
  3741.         }
  3742.         else
  3743.             return nil;
  3744.     }
  3745.  
  3746.     verDoKick(actor) =  {
  3747.         if (self.istame)
  3748.             self.onlyfriend;
  3749.         else
  3750.             "You obviously have not fully grasped the 
  3751.             gravity of the situation.  Do get a grip on 
  3752.             yourself.";
  3753.     }
  3754.     verDoAttack(actor) = {
  3755.         if (self.istame)
  3756.             self.onlyfriend;
  3757.         else if (not axe.isIn(Me))
  3758.             self.bearhands;
  3759.     }
  3760.     doAttack(actor) = { self.doAttackWith(actor, axe); }
  3761.  
  3762.     verDoAttackWith(actor, io) = {
  3763.         if (self.istame)
  3764.             self.onlyfriend;
  3765.     }
  3766.     doAttackWith(actor, io) = {
  3767.         //
  3768.         // If the player throws the axe at the bear, the
  3769.         // axe misses and becomes inaccessible.  (Doh!)
  3770.         //
  3771.         if (io = axe) {
  3772.             "The axe misses and lands near the bear where 
  3773.             you can't get at it.";
  3774.  
  3775.             axe.moveInto(self.location);
  3776.             axe.nograb := true;        // little hack
  3777.         }
  3778.         else if (io = Hands)
  3779.             self.nicetry;
  3780.         else
  3781.             self.verDoAttack(actor);
  3782.     }
  3783.  
  3784.     onlyfriend = {
  3785.         "The bear is confused; he only wants to be your 
  3786.         friend.";
  3787.     }
  3788.     bearhands = {
  3789.         "With what?  Your bare hands?  Against *his* bear 
  3790.         hands??";
  3791.  
  3792.         self.rhetoricalturn := global.turnsofar;
  3793.     }
  3794.     nicetry = {
  3795.         "Nice try, but sorry.";
  3796.     }
  3797.     
  3798.     verIoGiveTo(actor) = {}
  3799.     ioGiveTo(actor, dobj) = {
  3800.         if (dobj = tasty_food) {
  3801.             self.doFeed(Me);
  3802.         }
  3803.         else {
  3804.             if (self.istame)
  3805.                 "The bear doesn't seem very 
  3806.                 interested in your offer.";
  3807.             else
  3808.                 "Uh-oh -- your offer only makes the bear 
  3809.                 angrier!";
  3810.         }
  3811.     }
  3812.  
  3813.     verIoThrowAt(actor) = { self.verIoGiveTo(actor); }
  3814.     ioThrowAt(actor, dobj) = {
  3815.         if (dobj = axe)
  3816.             self.doAttackWith(actor, dobj);
  3817.         else
  3818.             self.ioGiveTo(actor, dobj);
  3819.     }
  3820.     verIoThrowTo(actor) = { self.verIoGiveTo(actor); }
  3821.     ioThrowTo(actor, dobj) = {
  3822.         if (dobj = axe)
  3823.             self.doAttackWith(actor, dobj);
  3824.         else
  3825.             self.ioGiveTo(actor, dobj);
  3826.     }
  3827.  
  3828.     verDoFeed(actor) = {}
  3829.     doFeed(actor) = {
  3830.         if (tasty_food.isIn(Me)) {
  3831.             "The bear eagerly wolfs down your food, after 
  3832.             which he seems to calm down considerably and 
  3833.             even becomes rather friendly.";
  3834.  
  3835.             tasty_food.moveInto(nil);
  3836.             self.istame := true;
  3837.             axe.nograb := nil;
  3838.         }
  3839.         else if (self.istame) {
  3840.             "You have nothing left to give the bear.";
  3841.         }
  3842.         else {
  3843.             "The bear seems more likely to eat *you*
  3844.             than anything you've got on you!";
  3845.         }
  3846.     }
  3847.  
  3848.     verDoDrop(actor) = {
  3849.         if (not self.isfollowing)
  3850.             "The bear isn't following you.";
  3851.     }
  3852.     doDrop(actor) = {
  3853.         if (Troll.isIn(Me.location)) {
  3854.             "The bear lumbers toward the troll, who lets 
  3855.             out a startled shriek and scurries away.  The 
  3856.             bear soon gives up the pursuit and wanders 
  3857.             back.";
  3858.  
  3859.             Troll.moveInto(nil);
  3860.             self.isfollowing := nil;
  3861.         }
  3862.         else {
  3863.             "The bear wanders away from you.";
  3864.         }
  3865.     }
  3866.  
  3867.     verDoTake(actor) = {
  3868.         if (not self.istame)
  3869.             "Surely you're joking!";
  3870.         else if (not self.wasreleased)
  3871.             "The bear is still chained to the wall.";
  3872.     }
  3873.     doTake(actor) = {
  3874.         self.isfollowing := true;
  3875.         "Ok, the bear's now following you around.";
  3876.     }
  3877. ;
  3878.  
  3879. Different_Maze_3: CCR_room
  3880.     sdesc = "Maze of Twisting Little Passage, All Different"
  3881.     ldesc = {
  3882.         I(); "You are in a maze of twisting little passages, 
  3883.         all different.";
  3884.     }
  3885.     west = Different_Maze_1
  3886.     se = Different_Maze_4
  3887.     nw = Different_Maze_5
  3888.     sw = Different_Maze_6
  3889.     ne = Different_Maze_7
  3890.     up = Different_Maze_8
  3891.     down = Different_Maze_9
  3892.     north = Different_Maze_10
  3893.     south = Different_Maze_11
  3894.     east = Different_Maze_2
  3895. ;
  3896.  
  3897. Different_Maze_4: CCR_room
  3898.     sdesc = "Little Maze of Twisty Passages, All Different"
  3899.     ldesc = {
  3900.         I(); "You are in a little maze of twisty passages, 
  3901.         all different.";
  3902.     }
  3903.     nw = Different_Maze_1
  3904.     up = Different_Maze_3
  3905.     north = Different_Maze_5
  3906.     south = Different_Maze_6
  3907.     west = Different_Maze_7
  3908.     sw = Different_Maze_8
  3909.     ne = Different_Maze_9
  3910.     east = Different_Maze_10
  3911.     down = Different_Maze_11
  3912.     se = Different_Maze_2
  3913. ;
  3914.  
  3915. Different_Maze_5: CCR_room
  3916.     sdesc = "Twisting Maze of Little Passages, All Different"
  3917.     ldesc = {
  3918.         I(); "You are in a twisting maze of little passages, 
  3919.         all different.";
  3920.     }
  3921.     up = Different_Maze_1
  3922.     down = Different_Maze_3
  3923.     west = Different_Maze_4
  3924.     ne = Different_Maze_6
  3925.     sw = Different_Maze_7
  3926.     east = Different_Maze_8
  3927.     north = Different_Maze_9
  3928.     nw = Different_Maze_10
  3929.     se = Different_Maze_11
  3930.     south = Different_Maze_2
  3931. ;
  3932.  
  3933. Different_Maze_6: CCR_room
  3934.     sdesc = "Twisting Little Maze of Passages, All Different"
  3935.     ldesc = {
  3936.         I(); "You are in a twisting little maze of passages, 
  3937.         all different.";
  3938.     }
  3939.     ne = Different_Maze_1
  3940.     north = Different_Maze_3
  3941.     nw = Different_Maze_4
  3942.     se = Different_Maze_5
  3943.     east = Different_Maze_7
  3944.     down = Different_Maze_8
  3945.     south = Different_Maze_9
  3946.     up = Different_Maze_10
  3947.     west = Different_Maze_11
  3948.     sw = Different_Maze_2
  3949. ;
  3950.  
  3951. Different_Maze_7: CCR_room
  3952.     sdesc = "Twisty Little Maze of Passages, All Different"
  3953.     ldesc = {
  3954.         I(); "You are in a twisty little maze of passages, 
  3955.         all different.";
  3956.     }
  3957.     north = Different_Maze_1
  3958.     se = Different_Maze_3
  3959.     down = Different_Maze_4
  3960.     south = Different_Maze_5
  3961.     east = Different_Maze_6
  3962.     west = Different_Maze_8
  3963.     sw = Different_Maze_9
  3964.     ne = Different_Maze_10
  3965.     nw = Different_Maze_11
  3966.     up = Different_Maze_2
  3967. ;
  3968.  
  3969. Different_Maze_8: CCR_room
  3970.     sdesc = "Twisty Maze of Little Passages, All Different"
  3971.     ldesc = {
  3972.         I(); "You are in a twisty maze of little passages, 
  3973.         all different.";
  3974.     }
  3975.     east = Different_Maze_1
  3976.     west = Different_Maze_3
  3977.     up = Different_Maze_4
  3978.     sw = Different_Maze_5
  3979.     down = Different_Maze_6
  3980.     south = Different_Maze_7
  3981.     nw = Different_Maze_9
  3982.     se = Different_Maze_10
  3983.     ne = Different_Maze_11
  3984.     north = Different_Maze_2
  3985. ;
  3986.  
  3987. Different_Maze_9: CCR_room
  3988.     sdesc = "Little Twisty Maze of Passages, All Different"
  3989.     ldesc = {
  3990.         I(); "You are in a little twisty maze of passages, 
  3991.         all different.";
  3992.     }
  3993.     se = Different_Maze_1
  3994.     ne = Different_Maze_3
  3995.     south = Different_Maze_4
  3996.     down = Different_Maze_5
  3997.     up = Different_Maze_6
  3998.     nw = Different_Maze_7
  3999.     north = Different_Maze_8
  4000.     sw = Different_Maze_10
  4001.     east = Different_Maze_11
  4002.     west = Different_Maze_2
  4003. ;
  4004.  
  4005. Different_Maze_10: CCR_room
  4006.     sdesc = "Maze of Little Twisting Passages, All Different"
  4007.     ldesc = {
  4008.         I(); "You are in a maze of little twisting passages, 
  4009.         all different.";
  4010.     }
  4011.     down = Different_Maze_1
  4012.     east = Different_Maze_3
  4013.     ne = Different_Maze_4
  4014.     up = Different_Maze_5
  4015.     west = Different_Maze_6
  4016.     north = Different_Maze_7
  4017.     south = Different_Maze_8
  4018.     se = Different_Maze_9
  4019.     sw = Different_Maze_11
  4020.     nw = Different_Maze_2
  4021. ;
  4022.  
  4023. Different_Maze_11: CCR_room
  4024.     sdesc = "Maze of Little Twisty Passages, All Different"
  4025.     ldesc = {
  4026.         I(); "You are in a maze of little twisty passages, 
  4027.         all different.";
  4028.     }
  4029.     sw = Different_Maze_1
  4030.     nw = Different_Maze_3
  4031.     east = Different_Maze_4
  4032.     west = Different_Maze_5
  4033.     north = Different_Maze_6
  4034.     down = Different_Maze_7
  4035.     se = Different_Maze_8
  4036.     up = Different_Maze_9
  4037.     south = Different_Maze_10
  4038.     ne = Different_Maze_2
  4039. ;
  4040.  
  4041. /*
  4042.  * We don't allow NPC's here because it would be *really* bogus
  4043.  * if the pirate stole the batteries right after the player bought
  4044.  * them.
  4045.  */
  4046. Dead_End_14: CCR_dead_end_room, NoNPC
  4047.     sdesc = "At a Dead End, in Front of a Massive Vending Machine"
  4048.     ldesc = {
  4049.         I(); "You have reached a dead end. There is a massive 
  4050.         vending machine here.";
  4051.  
  4052.         if (PirateMessage.isIn(self)) {
  4053.             P();
  4054.             I(); "Hmmm...  There is a message here 
  4055.             scrawled in the dust in a flowery script.";
  4056.         }
  4057.     }
  4058.  
  4059.     north = Different_Maze_2
  4060.     out = Different_Maze_2
  4061. ;
  4062. VendingMachine: CCR_decoration, readable
  4063.     sdesc = "vending machine"
  4064.     ldesc = { self.readdesc; }
  4065.     readdesc = {
  4066.         "The instructions on the vending machine read, 
  4067.         \"Insert coins to receive fresh batteries.\"";
  4068.     }
  4069.     location = Dead_End_14
  4070.     noun = 'machine' 'slot'
  4071.     adjective = 'vending' 'massive' 'battery' 'coin'
  4072.  
  4073.     verIoPutIn(actor) = {}
  4074.     ioPutIn(actor, dobj) = {
  4075.         if (dobj = rare_coins) {
  4076.             "Soon after you insert the coins in the coin 
  4077.             slot, the vending machines makes a griding 
  4078.             sound, and a set of fresh batteries falls at 
  4079.             your feet.";
  4080.  
  4081.             dobj.moveInto(nil);
  4082.             fresh_batteries.moveInto(self.location);
  4083.         }
  4084.         else {
  4085.             "The machine seems to be designed to take 
  4086.             coins.";
  4087.         }
  4088.     }
  4089.  
  4090.     verDoKick(actor) = {}
  4091.     doKick(actor) = {
  4092.         "<WHUMP!> You boot the machine, but to no avail.";
  4093.     }
  4094.     verDoBreak(actor) = {}
  4095.     doBreak(actor) = {
  4096.         "The machine is quite stury and survives your attack
  4097.         without getting so much as a scratch.";
  4098.     }
  4099.     verDoAttack(actor) = { self.verDoBreak(actor); }
  4100.     doAttack(actor) = { self.doBreak(actor); }
  4101.     verDoAttackWith(actor, io) = { self.verDoAttack(actor); }
  4102.     doAttackWith(actor) = { self.doAttack(actor); }
  4103.  
  4104.     verDoLookbehind(actor) = {
  4105.         "You don't find anything behind the vending machine.";
  4106.     }
  4107.     verDoLookunder(actor) = {
  4108.         "You don't find anything behind the under machine.";
  4109.     }
  4110.     verDoMove(actor) = { "The vending machine is far too heavy to move."; }
  4111. ;
  4112. PirateMessage: CCR_decoration, readable
  4113.     sdesc = "message in the dust"
  4114.     ldesc = {
  4115.         "The message reads, \"This is not the maze where the 
  4116.         pirate leaves his treasure chest.\"";
  4117.     }
  4118.     noun = 'message' 'scrawl' 'writing' 'script'
  4119.     adjective = 'scrawled' 'flowery'
  4120.     location = nil    // moved to Dead_End_14 when pirate spotted
  4121. ;
  4122.  
  4123. /*
  4124.  * Endgame locations
  4125.  *
  4126.  * We make these NoNPC rooms so that dwarves and pirate don't get
  4127.  * teleported here when (if) they get stuck trying to move around
  4128.  * the cave.  (The dwarves in here aren't real actors because they
  4129.  * kill the player immediately if they're awake.)
  4130.  */
  4131. At_Ne_End: CCR_room, lightroom, NoNPC
  4132.     sdesc = "At NE End"
  4133.     ldesc = {
  4134.         I(); "You are at the northeast end of an immense 
  4135.         room, even larger than the giant room.  It appears to 
  4136.         be a repository for the \"Adventure\" program.  
  4137.         Massive torches far overhead bathe the room with 
  4138.         smoky yellow light.  Scattered about you can be seen 
  4139.         a pile of bottles (all of them empty), a nursery of 
  4140.         young beanstalks murmuring quietly, a bed of oysters, 
  4141.         a bundle of black rods with rusty stars on their 
  4142.         ends, and a collection of brass lanterns.  Off to one 
  4143.         side a great many dwarves are sleeping on the floor, 
  4144.         snoring loudly.  A sign nearby reads: \"Do not 
  4145.         disturb the dwarves!\""; P();
  4146.  
  4147.         I(); "An immense mirror is hanging against one wall, 
  4148.         and stretches to the other end of the room, where 
  4149.         various other sundry objects can be glimpsed dimly in 
  4150.         the distance.";
  4151.     }
  4152.     sw = At_Sw_End
  4153. ;
  4154. Mirror_2: CCR_decoration
  4155.     sdesc = "enormous mirror"
  4156.     ldesc = "It looks like an ordinary, albeit enormous, mirror."
  4157.     noun = 'mirror'
  4158.     adjective = 'enormous' 'huge' 'big' 'large' 'suspended'
  4159.         'hanging' 'vanity' 'dwarvish'
  4160.  
  4161.     locationOK = true    // OK for location to be method
  4162.     location = {
  4163.         if (Me.isIn(At_Ne_End))
  4164.             return At_Ne_End;
  4165.         else
  4166.             return At_Sw_End;
  4167.     }
  4168.  
  4169.     verDoBreak(actor) = {}
  4170.     doBreak(actor) = {
  4171.         "You strike the mirror a resounding blow, whereupon 
  4172.         it shatters into a myriad tiny fragments.";
  4173.  
  4174.         //
  4175.         // A very bad move...
  4176.         //
  4177.         end_dwarves();
  4178.     }
  4179.     verDoAttack(actor) = { self.verDoBreak(actor); }
  4180.     doAttack(actor) = { self.doBreak(actor); }
  4181.     verDoAttackWith(actor, io) = { self.verDoAttack(actor); }
  4182.     doAttackWith(actor) = { self.doAttack(actor); }
  4183.     verDoKick(actor) = { self.verDoBreak(actor); }
  4184.     doKick(actor) = { self.doBreak(actor); }
  4185. ;
  4186. RepositoryStuff_1: CCR_decoration
  4187.     sdesc = "collection of adventure game materials"
  4188.     ldesc = {
  4189.         "You've seen everything in here already, albeit
  4190.         in somewhat different contexts.";
  4191.     }
  4192.     location = At_Ne_End
  4193.     noun = 'stuff' 'junk' 'materials' 'torches' 'objects'
  4194.     adjective = 'adventure' 'repository' 'massive' 'sundry'
  4195.  
  4196.     verifyRemove(actor) = {
  4197.         "Realizing that by removing the loot here you'd be 
  4198.         ruining the game for future players, you leave the 
  4199.         \"Adventure\" meterials where they are.";
  4200.     }
  4201. ;
  4202. RepositoryDwarves: CCR_decoration
  4203.     sdesc = "sleeping dwarves"
  4204.     adesc = { self.sdesc; }
  4205.     ldesc = {
  4206.         "I wouldn't bother the dwarves if I were you.";
  4207.     }
  4208.     location = At_Ne_End
  4209.     noun = 'dwarf' 'dwarves'
  4210.     adjective = 'sleeping' 'snoring' 'dozing' 'snoozing'
  4211.  
  4212.     verDoWake(actor) = {}
  4213.     doWake(actor) = {
  4214.         "You prod the nearest dwarf, who wakes up grumpily, 
  4215.         takes one look at you, curses, and grabs for his 
  4216.         axe.";
  4217.  
  4218.         end_dwarves();
  4219.     }
  4220.     verDoAttack(actor) = {}
  4221.     doAttack(actor) = { self.doWake(actor); }
  4222.     verDoKick(actor) = {}
  4223.     doKick(actor) = { self.doWake(actor); }
  4224. ;
  4225. RepositoryPlant: CCR_decoration
  4226.     location = At_Ne_End
  4227. ;
  4228.  
  4229. At_Sw_End: CCR_room, lightroom, NoNPC
  4230.     sdesc = "At SW End"
  4231.     ldesc = {
  4232.         I(); "You are at the southwest end of the repository. 
  4233.         To one side is a pit full of fierce green snakes. On 
  4234.         the other side is a row of small wicker cages, each 
  4235.         of which contains a little sulking bird.  In one 
  4236.         corner is a bundle of black rods with rusty marks on 
  4237.         their ends.  A large number of velvet pillows are 
  4238.         scattered about on the floor. A vast mirror stretches 
  4239.         off to the northeast. At your feet is a large steel 
  4240.         grate, next to which is a sign which reads, 
  4241.         \"TREASURE VAULT. Keys in main office.\"";
  4242.     }
  4243.     ne = At_Ne_End
  4244.     down = {
  4245.         RepositoryGrate.doEnter(Me);
  4246.         return nil;
  4247.     }
  4248. ;
  4249. RepositoryGrate: fixeditem, keyedLockable
  4250.     isopen = nil
  4251.     islocked = true
  4252.     sdesc = "steel grate"
  4253.     ldesc = {
  4254.         "It just looks like an ordinary steel grate.";
  4255.  
  4256.         " It is ";
  4257.         if (self.isopen)
  4258.             "open.";
  4259.         else if (self.islocked) 
  4260.             "closed and locked.";
  4261.         else 
  4262.             "closed.";
  4263.     }
  4264.     noun = 'grate' 'lock' 'gate' 'grille'
  4265.     adjective = 'metal' 'strong' 'steel' 'open' 'closed' 'locked'
  4266.         'unlocked'
  4267.  
  4268.     location = At_Sw_End
  4269.  
  4270.     mykey = nil    // no key for this one
  4271.  
  4272.     verDoEnter(actor) = {}
  4273.     doEnter(actor) = {
  4274.         if (not Grate.islocked) {
  4275.             if (not Grate.isopen) {
  4276.                 "(Opening the grate first.)\b";
  4277.                 Grate.isopen := true;
  4278.                         
  4279.             }
  4280.             if (actor.isIn(Outside_Grate))
  4281.                 actor.travelTo(Below_The_Grate);
  4282.             else
  4283.                 actor.travelTo(Outside_Grate);
  4284.         }
  4285.         else {
  4286.             "You can't go through a locked steel grate!";
  4287.         }
  4288.     }
  4289.     
  4290.     verIoPutIn(actor) = { "You can't put anything in that! "; }
  4291.     verDoPick = { "You have no tools to pick the lock with."; }
  4292. ;
  4293.  
  4294. RepositoryStuff_2: CCR_decoration
  4295.     sdesc = "collection of adventure game materials"
  4296.     ldesc = {
  4297.         "You've seen everything in here already, albeit
  4298.         in somewhat different contexts.";
  4299.     }
  4300.     location = At_Sw_End
  4301.  
  4302.     verifyRemove(actor) = {
  4303.         "Realizing that by removing the loot here you'd be 
  4304.         ruining the game for future players, you leave the 
  4305.         \"Adventure\" meterials where they are.";
  4306.     }
  4307.  
  4308.     noun = 'pit' 'snake' 'snakes' 
  4309.     adjective = 'fierce' 'green'
  4310. ;
  4311.  
  4312. /*
  4313.  * Miscellaneous messages
  4314.  */
  4315. broken_neck: object
  4316.     death = {
  4317.         "You are at the bottom of the pit with a broken neck.";
  4318.         die();
  4319.         return nil;
  4320.     }
  4321. ;
  4322. didnt_make_it: object
  4323.     death = {
  4324.         "You didn't make it.";
  4325.         die();
  4326.         return nil;
  4327.     }
  4328. ;
  4329. crawled_around: object
  4330.     message = {
  4331.         "You have crawled around in some little holes and 
  4332.         wound up back in the main passage.";
  4333.  
  4334.         return nil;
  4335.     }
  4336. ;
  4337. wontfit: object
  4338.     message = {
  4339.         "Something you're carrying won't fit through the 
  4340.         tunnel with you. You'd best take inventory and drop 
  4341.         something.";
  4342.  
  4343.         return nil;
  4344.     }
  4345. ;
  4346.  
  4347. /*
  4348.  * Room feature decorations.
  4349.  * These don't give any new information, but they make the program
  4350.  * seem less brain-damaged.
  4351.  */
  4352. TheRoom: CCR_decoration
  4353.     sdesc = "room"
  4354.     ldesc = {
  4355.         // Upon "examine room" we just give the standard
  4356.         // description for the current location.
  4357.         Me.location.lookAround(true);
  4358.     }
  4359.     noun = 'room' 'anteroom' 'dark-room' 'darkroom'
  4360.     adjective = 'debris' 'low' 'twopit' 'large' 'lighted' 'slab'
  4361.         'giant' 'soft' 'oriental' 'dark' 'immense' 'barren'
  4362.         'bear-in' 'bearin'
  4363.     locationOK = true     // tell compiler OK for location to be method
  4364.     location = {
  4365.         return Me.location;    // always where player is
  4366.     }
  4367. ;
  4368. Hands: CCR_decoration    // the player's hands
  4369.     sdesc = "your hands"
  4370.     adesc = { self.sdesc; }
  4371.     thedesc = { self.sdesc; }
  4372.  
  4373.     ldesc = "The look pretty normal to me."
  4374.  
  4375.     noun = 'hands'
  4376.     adjective = 'my' 'bare' 'hands'
  4377.  
  4378.     locationOK = true     // tell compiler OK for location to be method
  4379.     location = {
  4380.         return Me.location;    // always where player is
  4381.     }
  4382. ;
  4383.  
  4384. class rfd: floatingdecoration
  4385.     ldesc = "You know as much as I do at this point."
  4386. ;
  4387. Crawl: rfd
  4388.     sdesc = "crawl"
  4389.     noun = 'crawl' 'crawls'
  4390.     adjective = 'cobble' 'low' 'wide' 'higher' 'dead' 'end' 'tight'
  4391.     loclist = [
  4392.         Below_The_Grate  In_Cobble_Crawl  In_Debris_Room
  4393.         In_Dirty_Passage  On_Brink_Of_Pit
  4394.         At_West_End_Of_Hall_Of_Mists  At_East_End_Of_Long_Hall
  4395.         At_Complex_Junction  In_Large_Low_Room  Dead_End_Crawl
  4396.         In_Tall_E_W_Canyon  In_Oriental_Room
  4397.         At_Junction_With_Warm_Walls  In_Chamber_Of_Boulders
  4398.     ]
  4399. ;
  4400. Chamber: rfd
  4401.     sdesc = "chamber"
  4402.     noun = 'chamber'
  4403.     adjective = 'small' 'splendid' 'south' 'side' 'west' 'large'
  4404.             'low' 'circular'
  4405.     loclist = [
  4406.         Below_The_Grate  In_Bird_Chamber  In_South_Side_Chamber
  4407.         In_West_Side_Chamber  In_Slab_Room  In_Plover_Room
  4408.         In_Chamber_Of_Boulders
  4409.     ]
  4410. ;
  4411. Passage: rfd
  4412.     sdesc = "passage"
  4413.     noun = 'passage' 'opening' 'openings' 'corridor' 'corridors'
  4414.         'path' 'paths'
  4415.     adjective = 'low' 'wide' 'plugged' 'good' 'east' 'small' 'twisty'
  4416.         'little' 'n/s' 'e/w' 'dirty' 'broken' 'high' 'long'
  4417.         'large' 'walking' 'sizeable' 'sizable' 'cavernous'
  4418.         'blocked' 'immense' 'gently' 'sloping' 'coral'
  4419.         'shallow' 'somewhat' 'steeper' 'dark' 'forboding'
  4420.     loclist = [
  4421.         In_Cobble_Crawl In_Debris_Room 
  4422.         In_Awkward_Sloping_E_W_Canyon In_Bird_Chamber 
  4423.         At_Top_Of_Small_Pit In_Hall_Of_Mists 
  4424.         On_East_Bank_Of_Fissure In_Nugget_Of_Gold_Room 
  4425.         In_Hall_Of_Mt_King At_West_End_Of_Twopit_Room 
  4426.         In_East_Pit In_West_Pit West_Side_Of_Fissure 
  4427.         Low_N_S_Passage In_South_Side_Chamber 
  4428.         In_West_Side_Chamber At_Y2 Jumble_Of_Rock 
  4429.         At_Window_On_Pit_1 In_Dirty_Passage On_Brink_Of_Pit 
  4430.         In_Pit In_Dusty_Rock_Room 
  4431.         At_West_End_Of_Hall_Of_Mists Alike_Maze_1 
  4432.         Alike_Maze_2 Alike_Maze_3 Alike_Maze_4 Dead_End_1 
  4433.         Dead_End_2 Dead_End_3 Alike_Maze_5 Alike_Maze_6 
  4434.         Alike_Maze_7 Alike_Maze_8 Alike_Maze_9 Dead_End_4 
  4435.         Alike_Maze_10 Dead_End_5 At_Brink_Of_Pit Dead_End_6 
  4436.         At_East_End_Of_Long_Hall At_West_End_Of_Long_Hall 
  4437.         Crossover Dead_End_7 At_Complex_Junction In_Bedquilt 
  4438.         In_Swiss_Cheese_Room At_East_End_Of_Twopit_Room 
  4439.         In_Slab_Room In_Secret_N_S_Canyon_0 
  4440.         In_Secret_N_S_Canyon_1 
  4441.         At_Junction_Of_Three_Secret_Canyons In_Large_Low_Room 
  4442.         Dead_End_Crawl 
  4443.         In_Secret_E_W_Canyon In_N_S_Canyon 
  4444.         Canyon_Dead_End In_Tall_E_W_Canyon Dead_End_8 
  4445.         Alike_Maze_11 Dead_End_9 Dead_End_10 Alike_Maze_12 
  4446.         Alike_Maze_13 Dead_End_11 Dead_End_12 Alike_Maze_14 
  4447.         In_Narrow_Corridor At_Steep_Incline_Above_Large_Room 
  4448.         In_Giant_Room At_Recent_Cave_In 
  4449.         In_Immense_N_S_Passage In_Cavern_With_Waterfall 
  4450.         In_Soft_Room In_Oriental_Room In_Misty_Cavern 
  4451.         In_Alcove In_Plover_Room In_Dark_Room In_Arched_Hall 
  4452.         In_Shell_Room In_Ragged_Corridor In_A_Cul_De_Sac 
  4453.         In_Anteroom Different_Maze_1 At_Witts_End 
  4454.         In_Mirror_Canyon At_Window_On_Pit_2 Atop_Stalactite 
  4455.         Different_Maze_2 At_Reservoir Dead_End_13 At_Ne_End 
  4456.         At_Sw_End On_Sw_Side_Of_Chasm In_Sloping_Corridor 
  4457.         In_Secret_Canyon  On_Ne_Side_Of_Chasm In_Corridor 
  4458.         At_Fork_In_Path At_Junction_With_Warm_Walls 
  4459.         At_Breath_Taking_View In_Chamber_Of_Boulders 
  4460.         In_Limestone_Passage In_Front_Of_Barren_Room 
  4461.         In_Barren_Room Different_Maze_3 Different_Maze_4 
  4462.         Different_Maze_5 Different_Maze_6 Different_Maze_7 
  4463.         Different_Maze_8 Different_Maze_9 Different_Maze_10 
  4464.         Different_Maze_11 Dead_End_14
  4465.     ]
  4466. ;
  4467. Canyon: rfd
  4468.     sdesc = "canyon"
  4469.     noun = 'canyon' 'canyons'
  4470.     adjective = 'awkward' 'sloping' 'secret' 'e/w' 'n/s' 'tight'
  4471.             'tall' 'three'
  4472.     loclist = [
  4473.         In_Debris_Room  In_Awkward_Sloping_E_W_Canyon
  4474.         In_Bird_Chamber  In_Secret_N_S_Canyon_0
  4475.         In_Secret_N_S_Canyon_1  At_Junction_Of_Three_Secret_Canyons
  4476.         In_Secret_E_W_Canyon  In_N_S_Canyon
  4477.         Canyon_Dead_End  In_Tall_E_W_Canyon  Dead_End_8
  4478.         In_Mirror_Canyon  In_Secret_Canyon
  4479.     ]
  4480. ;
  4481. Walls: rfd
  4482.     sdesc = "walls"
  4483.     noun = 'wall' 'walls' 'cracks' 'ceiling' 
  4484.     adjective = 'orange' 'stone' 'swiss' 'cheese' 'cave' 'cavern'
  4485.             'ragged' 'sharp' 'canyon' 'warm' 'hot' 'building'
  4486.             'well' 'house' 'wellhouse'
  4487.     loclist = [
  4488.         Inside_Building In_Cobble_Crawl In_Debris_Room 
  4489.         In_Awkward_Sloping_E_W_Canyon In_Bird_Chamber 
  4490.         At_Top_Of_Small_Pit In_Hall_Of_Mists 
  4491.         On_East_Bank_Of_Fissure In_Nugget_Of_Gold_Room 
  4492.         In_Hall_Of_Mt_King At_West_End_Of_Twopit_Room 
  4493.         In_East_Pit In_West_Pit West_Side_Of_Fissure 
  4494.         Low_N_S_Passage In_South_Side_Chamber 
  4495.         In_West_Side_Chamber At_Y2 Jumble_Of_Rock 
  4496.         At_Window_On_Pit_1 In_Dirty_Passage On_Brink_Of_Pit 
  4497.         In_Pit In_Dusty_Rock_Room 
  4498.         At_West_End_Of_Hall_Of_Mists Alike_Maze_1 
  4499.         Alike_Maze_2 Alike_Maze_3 Alike_Maze_4 Dead_End_1 
  4500.         Dead_End_2 Dead_End_3 Alike_Maze_5 Alike_Maze_6 
  4501.         Alike_Maze_7 Alike_Maze_8 Alike_Maze_9 Dead_End_4 
  4502.         Alike_Maze_10 Dead_End_5 At_Brink_Of_Pit Dead_End_6 
  4503.         At_East_End_Of_Long_Hall At_West_End_Of_Long_Hall 
  4504.         Crossover Dead_End_7 At_Complex_Junction In_Bedquilt 
  4505.         In_Swiss_Cheese_Room At_East_End_Of_Twopit_Room 
  4506.         In_Slab_Room In_Secret_N_S_Canyon_0 
  4507.         In_Secret_N_S_Canyon_1 
  4508.         At_Junction_Of_Three_Secret_Canyons In_Large_Low_Room 
  4509.         Dead_End_Crawl 
  4510.         In_Secret_E_W_Canyon In_N_S_Canyon 
  4511.         Canyon_Dead_End In_Tall_E_W_Canyon Dead_End_8 
  4512.         Alike_Maze_11 Dead_End_9 Dead_End_10 Alike_Maze_12 
  4513.         Alike_Maze_13 Dead_End_11 Dead_End_12 Alike_Maze_14 
  4514.         In_Narrow_Corridor At_Steep_Incline_Above_Large_Room 
  4515.         In_Giant_Room At_Recent_Cave_In 
  4516.         In_Immense_N_S_Passage In_Cavern_With_Waterfall 
  4517.         In_Soft_Room In_Oriental_Room In_Misty_Cavern 
  4518.         In_Alcove In_Plover_Room In_Dark_Room In_Arched_Hall 
  4519.         In_Shell_Room In_Ragged_Corridor In_A_Cul_De_Sac 
  4520.         In_Anteroom Different_Maze_1 At_Witts_End 
  4521.         In_Mirror_Canyon At_Window_On_Pit_2 Atop_Stalactite 
  4522.         Different_Maze_2 At_Reservoir Dead_End_13 At_Ne_End 
  4523.         At_Sw_End On_Sw_Side_Of_Chasm In_Sloping_Corridor 
  4524.         In_Secret_Canyon  On_Ne_Side_Of_Chasm  In_Corridor 
  4525.         At_Fork_In_Path At_Junction_With_Warm_Walls 
  4526.         At_Breath_Taking_View In_Chamber_Of_Boulders 
  4527.         In_Limestone_Passage In_Front_Of_Barren_Room 
  4528.         In_Barren_Room Different_Maze_3 Different_Maze_4 
  4529.         Different_Maze_5 Different_Maze_6 Different_Maze_7 
  4530.         Different_Maze_8 Different_Maze_9 Different_Maze_10 
  4531.         Different_Maze_11 Dead_End_14
  4532.     ]
  4533. ;
  4534. DeadEnd: rfd
  4535.     sdesc = "dead end"
  4536.     noun = 'end'
  4537.     adjective = 'dead'
  4538.     loclist = [
  4539.         Dead_End_1 Dead_End_2 Dead_End_3 Dead_End_4 
  4540.         Dead_End_5 Dead_End_6 Dead_End_7 Dead_End_Crawl 
  4541.         Canyon_Dead_End Dead_End_8 Dead_End_9 Dead_End_10 
  4542.         Dead_End_11 Dead_End_12 Dead_End_13 Dead_End_14
  4543.     ]
  4544. ;
  4545. Hall: rfd
  4546.     sdesc = "hall"
  4547.     noun = 'hall'
  4548.     adjective = 'vast' 'long' 'featureless' 'arched'
  4549.     loclist = [
  4550.         In_Hall_Of_Mists  On_East_Bank_Of_Fissure
  4551.         In_Hall_Of_Mt_King  West_Side_Of_Fissure
  4552.         In_West_Side_Chamber  At_West_End_Of_Hall_Of_Mists
  4553.         At_East_End_Of_Long_Hall At_West_End_Of_Long_Hall
  4554.         In_Arched_Hall
  4555.     ]
  4556. ;
  4557. Hole: rfd
  4558.     sdesc = "hole"
  4559.     noun = 'hole' 'holes'
  4560.     adjective = 'large' 'big' 'round' 'two' 'foot' 'two-foot'
  4561.     loclist = [
  4562.         At_East_End_Of_Twopit_Room
  4563.         In_West_Pit  Low_N_S_Passage  In_Dirty_Passage
  4564.         In_Dusty_Rock_Room  At_East_End_Of_Long_Hall
  4565.         In_Bedquilt  In_Narrow_Corridor  In_Cavern_With_Waterfall
  4566.         At_Reservoir
  4567.     ]
  4568. ;
  4569. Junction: rfd
  4570.     sdesc = "junction"
  4571.     noun = 'junction'
  4572.     adjective = 'complex'
  4573.     loclist = [
  4574.         At_Complex_Junction  At_Junction_Of_Three_Secret_Canyons
  4575.         At_Junction_With_Warm_Walls
  4576.     ]
  4577. ;
  4578. Air: rfd    // If they MUST examine EVERYTHING
  4579.     sdesc = "air"
  4580.     adesc = "air"
  4581.     noun = 'air' 'environment' 'atmosphere' 'wind'
  4582.     adjective = 'sea' 'damp' 'hot' 'stifling'
  4583.     locationOK = true     // tell compiler OK for location to be method
  4584.     location = {
  4585.         return Me.location;    // always where player is
  4586.     }
  4587.     verDoSmell(actor) = {}
  4588.     doSmell(actor) = {
  4589.         "The air smells pretty much like you would expect.";
  4590.     }
  4591. ;
  4592.